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L Simple, rapide, efficace : 
; Téléchargez les listings publiés cha- 


que mois dans AMSTAR & CPC et ceux 
des numéros hors série de CPC. 

Il vous suffit pour cela du logiciel AR- 
CADES, d'un Minitel et d'un câble de 
liaison standard Minitel-Amstrad que 


nous pouvons vous fournir. 


SZ es: 
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Radiocommunication, 
informatique, l'information, 
plus de 500 petites annonces 
en permanence, vos questions 
traitées chaque jour. 


Sur 3615 Arcades, les meilleurs jeux 
et utilitaires. 
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EDITO 


V ous êtes plusieurs milliers à rester fidèles à 
votre Amstrad, plusieurs milliers à vouloir l'ali- 
menter. Surprenant, non ? 


Vos lettres sont là pour nous le rappeler : "Ne 
nous abandonnez pas l!". 


Loin de nous cette idée. Pour répondre aux be- 
soins de nos lecteurs, spécialistes du clavier, nous 
avons décidé dans les mois à venir de vous four- 
nir de quoi nourrir votre machine préférée. 


Alors à vos claviers | 


S. FAUREZ 
Directeur de publication. 
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Valable pour 
& CPC 464 
@ CPC 664 
& CPC 6128 


SCOOTER 
SPATIAL 


Frédéric JULIEN 


Vous avez un scooter et vous 
devez descendre dans des 
galeries sans toucher les murs 
eten faisant attention au 
monstre qui tire pour vous 
empêcher de passer. 


P our changer de tableau, vous devez 
vous poser doucement sur le télé- 
portateur rouge. Le jeu comporte 7 ta- 
bleaux et vous possédez 8 vies. Pour le 
déplacement du scooter vous avez les 
commandes : montée, droite, gauche, la 
descente se fait par l'attraction, il suffit 
de vous laisser tomber. 

Voici les lignes à modifier pour voir 
tous les tableaux : 


- Ligne 780 : Changer then 1080 par 790 
ce qui vous permet de tous les traverser 
et pour voir le tableau suivant, posez-vous 
sur le téléportateur rouge. 
- Ligne 1090 : changer vie = vie - 1 

par vie = vie - 0 


Comme vous le savez, ceci vous don- 
nera des vies infinies. Les variables sont 
les suivantes : 


JEU 


IN =inertie 

PE = vitesse de chute du scooter 

X5 = déplacement scooter droite 
gauche 

YS = montée et droite du scooter 

X1 = affichage du scooter 

Y1 = affichage du scooter 


lRCECTT ES ET ET TETE TEE ETES) 
CEE 
2': 
L 
KART ETICECTIETETETETETETETTTETTTTE) 
Hu 
5 BORDER O:1NK 0,0:CLS 
10 SYHBOL AFTER 47:SYMABOL 250,30, 70 
40,100, 70,30:SYMBOL 127,239, 239, 23 
9,0,254,254,254,0:SYMBOL 224,119, 11 
9,149,137,138,77,66,64:SYMBOL 225,2 
36, 236, 236,0, 254, 138, 77,66: SYMBOL 2 
26,204, 138, 77,66, 1 
20 SYHBOL 244,48,44,124,174,7,175,1 
27,30:5YMBOL 240, 1,3,63,255,255,63: 
SYHBOL 242,0,0,0,254,252,254,0:SYMB 
OL 239,0,0,0,0,127,63,127,0:SYMBOL 
248,0, 128, 192, 252,255, 255,252,0 
30 SYHBOL 48,411111110, &11000010, &X 
1000010,811000010,411000010, 4110000 
10,&11111110,&X0:SYNBOL 49,8X1100,& 
11100,&11100,811100,411100,411100, & 
11100,&X0:SYNBOL 50,411111100, &X100 
,4X100,411111100, &X1000000, uX 100000 
0,411111100, &X0 
40 SYNBOL 51,811111100, 41100, 41100, 
41111100, 81100, 41100, &X1111100, &XO: 
SYHBOL 52,411000100,411000100, &1100 
0100,8X1111100,41100,&1100, &X100, &X 
0:SYHBOL 53,411111100,&11000000, 811 
000000,411111100,8X100,1100,8X1111 
100,810 
50 SYHBOL 54,411111100, 11000000, &X 
1000000, &11111100,&11000100, 4110001 
00,811111100,&X0:SYHBOL 55,&1111110 
0,41100,81100, 41100, 81100, 41100, &11 
00:SYHBOL 56,8X1111100, &X1000100, &X 
1000100,811111100,&X1000100, 4110001 
00,411111100,&X0 
60 SYHBOL 57,811111100, &11000100, &X 
1000100,811111100,&1100,&1100,8&X111 
1100,&10:SYMBOL 148,8110011000,&111 
010010,8X1111111,8X11101,8X111000,& 
11101100, 8111000110, &1i0 
70 RUN" jeu 


REDIFINITION 





XP 
KE 


FE 


X4 = choix dans le menu 
J1 = montée 

J2 = direction gauche 
J3  =direction droite 


tabl = numéro du tableau 
score = score 
vie = nombre de vies 


Pour les 464, il faut supprimer la li- 
gne 160 ainsi que toutes les instructions 
FILL contenues dans le listing. 


AO PARNENNENENENNNENNNNENNNENNENE )LA 
CEE 
20 '# 
4 
30 + 
+ 
40 + 
4 
50 ’: 
4 
60 '# 
4 
70 '# 
4 
C'OREETEEEPTEEETEPFPET TETE PTE TETE 
CETE 
90 in=0::pe=0:n=0:x3=0:ys=0:t=0: x1= 
0:y1=0:gel=0:J2=8:J3=1:xb=39: yb=10: 
etoile=1 
TUE TT PTTETETTTTETES SET ETC ITE 
CD 
110 '# 
# 
120 PHRHENNNNNNENNNNENNNENNNEUENNES 
Hs 
130 tabl=1:in=1:pe=1:n=0:x3=0:y3=0: 
t=0:11=0:y1=0:gel=0:v$-CHR$ (239) +CH 
R$(248) :MODE 1:BORDER O:1MK 0,0: INK 
1,0:INK 2,0:INK 3,0:14=11:G0SUB 37 
0 
140 VIE=8:TA=1:SC0RE-0:PLOT 96,84,3 
:DRAW 96,332:DRAY 116,352:DRAU 524, 
352:DRAU 544,332:DRAU 544,84:DRAU 5 
24,64:DRAW 116,64:DRAU 96,84 
150 PLOT 130,110:DRAV 130,312:DRAV 
510,312:DRAV 510,110:DRAW 130,110 
160 ORIGIN 100,100:FILL 1 
170 GOSUB 1370 
180 PEN 1:LOCATE 14,8:PRINT"SCOOTER 
SPACIAL" 
190 PEN 3:LOCATE 14,9:PRINT STRINGS 
(15,154) 
200 PEN 1:LOCATE 12,11:PRINT®")- *;: 
PEN 2:PRINT"JOUER" 
210 PEN 1:LOCATE 12,13:PRINT")- ";: >GY 


FREDERIC JULIEN LB 


LC 


PRESENTE >LD 


SCOOTER SPACIAL 


1889 


MENU 


MR 


TC 


PEN 2:PRINT® INSTRUCTION" 

220 PEN 1:LOCATE 12,15:PRINT®)- *;: )QX 
PEN 2:PRINT"CHOIX CLAVIER/JOT® 

240 PEN 1:LOCATE 11,14:PRINT CHRS(2 >FQ 
27) 

245 INK 1,6:1NK 2,26:INK 3,2:OUT 48 >TQ 
128,1:OUT 48384,1:FOR h=0 TO 40 STE 

P 2:OUT 48384,h:FO0R b=1 TO G0:NEXT 

b,h 

250 1F INKEY(0)=0 AND 14212 THEN PR >Q1 
OD=-2:G0T0 290 

255 IF INKEY(72)=0 AND 1412 THEN P DRE 
ROD=-2:G0T0 290 

260 IF INKEY(2)=0 AND 14(15 THEN PR >QA 
0D=2:GO0T0 290 

265 IF INKEY(73)=0 AND 14(15 THEN P >RF 


ROD=2:G0T0 290 

270 IF INKEY(47)=0 OR INKEY(76)=0 T HF 
HEN 320 

280 GOTO 250 >2D 


290 LOCATE 11,X4:PRINT" ":X4=14+PRO )IL 
D:PEN 1:LOCATE 11,X4:PRINT CHR#(227 

) 

300 FOR 1=1 TO 50:NEXT NT 
310 IF INKEY$C)"" THEN 310 ELSE 250 >A4 


320 IF 14=11 THEN ORIGIN 0,0:G0T0 4 >DP 
20 


330 1F 14=13 THEN GOSUB 2050 VI 
340 IF X4=15 THEN GOTO 1230 >UB 
360 GOTO 250 >2C 


370 PAPER 2:PEN 3:FOR A=1 TO 40:L0C >J4 
ATE A,1:PRINT CHR$(233) :NEXT 

380 FOR A=1 TO 40:LOCATE A,24:PRINT DUH 
CHR$ (233) :NEXT 

390 FOR A=1 TO 23:LOCATE 1,A:PRINT TH 
CHR$ (233) :NEXT 

400 FOR A=1 TO 23:LOCATE 40,A:PRINT >CQ 
CHR (233) :NEXT:PAPER 0 

410 RETURN )ZA 
420 VHNRNNNANNEENNENNNNEANENNNNII )RG 
CT) 
430 '+ 

3 

OVTIREETECTET TEE ET CEE TEST IIIIIIEN 
TT 

450 nr=INT(RND#12)+6:FOR h=40 TO O QT 
STEP -2:OUT 48128,1:OUT 48384,h:FOR 

b=i TO 60:NEXT b,h 

455 NODE 1:1F tabl=7 THEN FOR etoil >JK 
e=i TO 100:x=INT(RND#640) :y=INT (RND 
4300) :PLOT x,y, INT(RND#1)+1:y=350:x 
=400:VINDOW#2, 2,24,5,20:PAPER#2, 0:P 
. EN#2,0:CLS82:NEXT 
460 IF TABL)11 THEN TABL:1 >UH 


DESSIN TABLEAUX >RH 


470 IF TABL=1 THEN INK 2,9:1NK 0,0: >AA 
d=20:e=350:1=580:j=175:k=404:x1=0:y 
1=0:p=580:RESTORE 930 

480 IF TABL=2 THEN INK 2,26:e=350:d >B4 
=550:xb=37:1=580: 1=220:k=340: yb=12: 
11=0:y1=0:p=580:v$=CHRS (240) +CHRS (2 

42) :RESTORE 970 

490 IF TABL=3 THEN INK 2,15:e=350: >RH 
d=50:xb=38:1=580: =270:k=292: p=580: 
11=0:y1=0:v$=CHRS (239) +CHRS (248) :RE 
STORE 1020 

500 IF TABL=4 THEN INK 2,10:e=350:d >DQ 
=650:xb=37:i=420: j=160:k=164:yb=12: 
11=0:y1=0:p=420: v$=CHRS (240) +CHRS (2 

42) :RESTORE 1680 

510 IF TABL=5 THEN INK 2,1:e=350:d >CN 
=550:xb=37:i=470: j=160:k=150: yb=12: 
11=0:y1=0:p=470:v$=CHRS (240) +CHRS (2 

42) :RESTORE 1800 

520 IF TABL=6 THEN IK 2,14:e=350:d >BR 
=20:xb=37:i=520: j=145:k=264:yb=12:x 
1=0:y1=0:p=520:v$=CHR$ (239) +CHR$ (24 
8):RESTORE 1900 

530 IF TABL=7 THEN INK 2,17:e-350:d >BZ 
=40:xb=37:1=300: j=145:k=156: yb=12: x 
1=0:y1=0:p=300:v$=CHRS (239) +CHR$ (24 

8) :RESTORE 1980 

540 IF TABL=8 THEN 1400 >QP 
575 IF tabl=1 THEN FOR etoile=1 TO >DH 
100: x= INT (RND#640) : y= INT (RND=300) :P 

LOT x,y, INT(RND#1)+1:y=350:x=18:NEX 

T 

577 LOCATE 1,25:PRINT STRINGS (40,12 >PG 
8):LOCATE 1,24:PRINT STRINGS(40, 128 
):LOCATE 1,23:PRINT STRING#(40, 128) 
:LOCATE 1,22:PRINT STRINGS (40, 128) 

580 READ A,B,PN,L,C:1F A=-1 THEN 59 >RU 
0 ELSE LOCATE B,A:PEN pN:PRINT STRI 
NG#(L,C):G0T0 580 

590 ORIGIN 0,0:PEN 2:LOCATE 4,23:PR >PU 
INT"SC:";SCore:LOCATE 4,24:PRINT"TA 
B";TA:LOCATE 30,22:PRINT CHR$(239)+ 
CHR$ (248) ;VIE:LOCATE 30,24:F=576:PR 
INT'FUEL:":LOCATE 35,24:PRINT F 

600 PAPER 2:PEN 3:F0R a=1 TO 40:L0C >DI 
ATE a,4:PRINT CHR$(233):NEXT:FOR a= 

1 TO 40:LOCATE a,21:PRINT CHR$ (233) 
:NEXT 

605 FOR a=4 TO 24:LOCATE 1,a:PRINT NY 
CHR$ (233) :NEXT:FOR a=4 TO 24:LOCAT 

E 40,a:PRINT CHR$(233):NEXT:FOR a=2 

TO 38:LOCATE a,25:PRINT CHR$ (233): 
NEXT:LOCATE 12,22:PRINT CHR$(233):L 
OCATE 12,23:PRINT CHR# (233) :LOCATE 
12,24:PRINT CHR#(233) 
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606 LOCATE 28,22:PRINT CHR#(233) :LO >FF 

CATE 28,23:PRINT CHR$ (233) :LOCATE 2 

8,24:PRINT CHR#(233) :PAPER O:PEN 1: 
LOCATE 13,22:PRINT STRINGS (15,143): 

LOCATE 13,23:PRINT STRINGS (15, 143): 

LOCATE 13,24:PRINT STRINGS (15, 143) : 

LOCATE 13,23:PAPER 1:PEN 3 

607 PRINT"SCOOTER SPACIAL":PAPER 0: >GH 

OUT 48128,1:OUT 48384,1:F0R h=0 TO 

40 STEP 2:OUT 48384,h:FO0R b=1 TO 60 
:NEIT b,h 

610 "ANSSNENENNENNNNSNNNSENNENNNNES DH 
CFE 
620 ’s 

3 

630 "HHRSNNNESNNNENNENNNENSNEENNSSS >EK 
CPE 

640 PEN 2:TAGOFF:LOCATE 1,2:PRINT"F >ZE 

UEL:":PEN 2:PEN 3:LOCATE 5,2:PRINT 
STRINGS(36,143):x=d:y=e:xb=1:yb=} 

650 PRINT CHR$(23)CHR$ (1) ; : TAG )Y1 
660 PLOT -2,-2,3:1F f<=0 THEN GOSUB >PX 
860:G0T0 720 

670 IF gel=0 THEN t=t+1:1F t=5 THEN )QV 
t=0:G0SUB 660 

680 IF INKEY(44)=0 THEN GOSUB 1760 )AQ 
690 IF INKEY(j3)=0 THEN SOUND 130,0 >JD 
,0,8,1,,20:gel=0:GO0SUB 830:1F 158 
THEN xs=19+2 

695 MOVE xb,yb:PRINT CHR$(154)+CHR$ )JE 
(154); 

696 1F xb=p THEN xb=xb+16:MOVE xb,y >EH 
b:PRINT CHR$(154) ; :xb=p 

697 xb=xb-16 >GH 
700 IF INKEY(j2)=0 THEN SOUND 129,0 >KK 
,0,8,1,,20:gel=0:GOSUB 830:1F xs>-8 
THEN 1s=15-2 

710 IF INKEY(j1)=0 THEN SOUND 132,0 >KE 
,0,8,1,,30:ge1=0:G0SUB 830:1F ys>-6 
THEN ys=y3-1 

715 IF k=xb THEN xb=xb+16:MOVE xb, FF 
yb:PRINT CHR$ (154) ; :xb=i 


BOUCLE PRINCIPALE )RJ 


720 x=x+x8:y=y-ys >NY 
730 IF y>350 OR y<34 THEN ys=0 > 
740 IF x>608 THEN x=608:13=0 )W 
750 IF x<0 THEN x=0:15=0 >)RD 
760 MOVE xi,yi-16:PRINT v$; >) 
770 MOVE x,y-16:PRINT v$; >UW 


780 IF gel=0 THEN te=TEST(x-2,y-34) >VA 
OR TEST(x+18,y-34) OR TEST(x-2, y-1 

6) OR TEST(x+18,y-16) OR TEST(x+34, 
y-22) OR TEST(xt34,y-28):IF te>i TH 

EN 1080 

790 IF gel=0 THEN IF TEST(x+2,y-32) DMY 
=1 AND TEST(1+28,y-32)=1 AND ys(3 T 


HEN tabl=tabl+1:SCore=SCore+100:TA= 
TA+1:BORDER 0:G0T0 450 

800 xi=x:y1=y:1F (150 AND ff=0 THE DAV 
N GOSUB 820 

810 GOTO 660 >ZH 
820 tf=1:EVERY 50,3 GOSUB 850:RETUR DEL 
N 

830 1F 10 THEN f=f-2:MO0VE f+64,368 )HI 
:DRAUR 0,14,3:TAGOFF:LOCATE 35,24:P 
RINT F:TAG 


840 RETURN >ZH 
850 RETURN )ZJ 
860 IF xs>=2 THEN xs=xs-in )L 
870 IF xs<=-2 THEN xs=xstin >VA 
880 IF ys(16 THEN ys=ystpe )B 
890 RETURN >AC 


000 "HNHHNNNENNNSNNNNSNNNNNNNENNNES >RK 


TABLEAUX No 1 2 et 3 


020 'HNHESNSENNESSNESENSESNNSSNSSES 
LEE: 

930 DATA 11,2,2,1,215,12,2,2,1,143, 
12,3,2,1,215,12, 20,2, 1,214, 12, 21,2, 
1,215, 12,22, 2,1,214,12,23,2,1,215,1 
3,2,2,2,143,13,4,2,1,215, 13,19, 2,1, 
214,13, 20, 2,4, 143,13, 24, 2, 1,215 
940 DATA 14,2,2,3,143,14,5,2, 1,215, 
14,8,2,1,214,14,9,2, 1,215, 14, 18,2, 1 
,214,14,18, 2,6, 143, 14,25, 2, 1,215, 15 
,2,2,4,143,15,6, 2, 1,215, 15,7,2, 1,21 
4,15,8, 2,2, 143, 15,10, 2, 1,215 

950 DATA 15,17, 2, 1,214, 15,18, 2,8, 14 DUD 
3,15,26,2,1,215, 16, 2, 2,9, 143, 16,11, 
2,1,215,16,16,2,1,214,16, 17,2, 10, 14 
3,16,27,2,1,215,16,33,2,1,214, 17,2, 
2,10,143,17,12,2,1,215,17,15,2,1,21 
4,17,16,2, 12, 143, 17,28, 2, 1,215, 17,3 
2,2,1,214,17,33,2,1, 143 

960 DATA 18,2,2,11,143,18,13,2,1,21 DDJ 
5,18,14,2,1,214, 18, 15,2, 14, 143, 18, 2 
9,2,1,215,18,31,2,1,214, 18, 32, 2,2,1 
43,19, 2,2, 32, 143, 19, 34, 3, 1, 246, 19,3 
5,1,4,143, 19,39, 3,1, 247, 20, 2,2, 32,1 
43,15,39,1, 1,244, -1,0,0,0,0 

970 DATA 5,2,2,32,127,5, 39, 2, 1, 127, 
6,2,2,4,127,6,6,2,1,212,6,16,2,1,21 
3,6,17,2,17,127,6,39, 2, 1,127, 7,2,2, 
4,127,7,17,2,17,127,7,39,2,1,127,8, 
2,2,4,127,8,17,2,16,127,8, 33, 2, 1, 22 
6,8,39,2,1,127 

980 DATA 9,2, 2,4,127,9,17,2,6,127,9 
,23,2,1,212,9,39,2,1,127,10, 2,2, 8,1 
27,10,17,2,6, 127, 10,39, 2,1, 127, 11,2 
,24127,11,10,2,3,127,11,17,2,6, 12 


V 


VA 


V 


7,11,39,2,1,127 
990 DATA 12,2,2,4,127,12, 10,2,3,127 DUA 
,12,17,2,6,127,12,39,2,1,127,13, 2,2 
,4,127,13,10,2,3,127,13,17,2,6,127, 
13,28, 2,1,214,13,29, 2, 11,127, 14,2,2 
,4,127,14,10,2,3,127,14,17,2, 1,226, 
14,18, 2,4, 127, 14,22, 2,1,226, 14, 28,2 
,12,127 

1000 DATA 15,2,2,3,127,15,5,2,1,226 >2D 
,15,10,2,3,127,15, 28,2, 12,127, 16,2, 
2,2,127,16,4,2,1,226, 16, 10,2,3,127, 
16, 28, 2,12, 127,17,2,2,1,127,17,3,2, 
1,226, 17,10, 2, 3,127, 17,28, 2, 12,127, 
18,2, 2,1,127,18,9,2,1,214, 18, 10,2,3 
,127,18,13, 2, 1,215, 18, 28, 2, 12,127 
1010 DATA 19,2,2,1,127,19,3,3,1, 246 
,19,4,1,4,143,19,8,3,1, 247, 19,9, 2,3 
1,127, 20, 2,2,1,127, 20,9, 2,31,127, 18 
,27,2,1,214, 12,38, 2, 1,214 

1015 DATA 15,18, 2,1, 224,15, 19,2, 1,2 
25,15,20, 2, 1,226, 15,21, 2,1, 225,9, 23 
,2,1,224,9, 24,2, 1,225,8,25,2,1,226, 
9,26, 2, 1,224,9,27,2,1,226,9, 28, 2,1, 
225,9, 29,2,1,224,9,30,2,1,225,9, 31, 
2,1,224,9, 32,2, 1,226,9, 32,2,1,226,1 
2,38,1,1,244 

1016 DATA 6,6,2,1,224,6,7,2,1,225,6 >BU 
,8,2,1,226,6,9,2,1,224,6,10, 2,1, 225 
,6,10,2,1,226,6,11,2,1,226,6,12, 2,1 
,225,6, 13, 2,1,224,6, 14,2,1,226,6,15 
,2,1,225,6, 16, 2, 1,226, -1,0,0,0, 0 
1020 DATA 5,2,2,1,127,5,6, 2, 32,127, 
6,2,2,1,127,6,8,2,12, 127,6, 20,2,1,2 
12,6, 39,2, 1,213, 7,2, 2,1,127,7,8,2,1 
2,127,8,2,2,1,127,8,8,2, 12, 127,9, 2, 
2,1,127,9,8,2,12,127,10,2,2,1,127,1 
0,8,2,1,226,10,9,2,11,127,10,25, 2,3 
,127,10,32,2,3,127, 11, 2, 2,1, 127 
1030 DATA 11,3,2,1,215,11,15,2,5, 12 
7,11,25,2,3,127,11,32,2,3,127,12, 2, 
2,2,127,12,4,2,1,215, 12,15, 2,5, 127, 
12,25, 2, 3,127, 12,32, 2, 3,127, 13, 2,2, 
3,127,13,5,2,1,215,13,15,2,5, 127,13 
,25,2,3,127,13,32,2,3,127,14,2,2,8, 
127,14, 10,2, 1,215 

1040 DATA 14,15,2,5,127, 14,25, 2,3, 1 DUP 
27,14,32,2,3,127,15,2,2,9,127,15, 15 
,2,1,226,15,16,2,4,127, 15, 19,2, 1,22 
6,15,25,2,3,127, 15,32, 2,3,127,16,2, 
2,9,127,16,25,2,3,127,16, 32, 2,3, 127 
,17,2,2,9,127,17,25,2,3,127, 17, 32,2 
,3,127 

1050 DATA 18, 2,2,10,127,18,11,2,1,2 DAE 
15, 18, 24, 2, 1,214, 18, 25, 2, 3, 127,18, 2 
8,2,1,215,18,31,2,1,214, 18,32, 2,3,1 


V 


LH 


V 


LF 


v 


AB 


6 


27,18,35,2,1,215,19,2,2,34,127,19,3 

6,3,1,246,19,37,1,2, 143, 19, 39,3, 1,2 

47,20,2,2,34,127 

1055 DATA 6,20,2,1,224,6,21,2,1,225 >Z2Y 

,6,22,2,1,226,6,23,2,1,224,6,24,2,1 

, 225,6, 25,2, 1, 226,6, 26, 2,1,225,6,27 

2,1, 226,6, 28,2,1,224,6,29,2,1,225, 

6,30,2,1,226,6, 30,2,1,224,6,32,2,1, 

225,6,33,2,1,226,6,34,2,1,225,6,35, 

2,1,226,6, 36,2,1,224,9,39,1,1,244 

1056 DATA 6,37,2,1,225,6,38,2,1,224 >DC 

6, 39,2,1,226,6,31,2,1,224,11,9,2,1 

,225,11,10,2,1,226,11,11,2,1,228,11 

,12,2,1,225,11,13,2,1,226,11,13,2,1 

,224,11,14,2,1,225,16,16,2,1,228,16 

,17,2,1,225, 16, 18,2,1,226,-1,0,0,0, 

0 

1060 HRRNNASNNEENNNSNENNANNENNNESS TK 

#3 

1070 '# 
4 

1080 "HHRNRNSNNSENNEENNNSNNENISE VE 

CT 

1090 vie=vie-1 

1100 ? 

1110 HOVE «,y-16:PRINT CHR$(148)+CH >GF 

R#(148) ; : TAG: INK 0,0:SPEED LK 5,5: 

BORDER 0,26:1INK 0,0,26:OUT &BCO0, 2: 

OUT &BD49, 49: SOUND 4, 700,50,9,9,9:F 

OR t=1 TO 400:NEIT:OUT &BCOO, 2: OUT 

&BD49, 46: BORDER 0:1INK 0,0:H0VE x, y- 

16:PRINT v$; 

1120 MOVE x,y-16:PRINT CHR$(148)+CH >TV 

R$(148) ;:x3=0:ys=0:y=e:x=d:t=0:x1=0 

:y1=0:gel=0:TAGOFF :LOCATE 33,22:PRI 

NT vie:PEN 2:TAGOFF:LOCATE 1,2:PRIN 

T'FUEL:":PEN 2:PEN 3:LOCATE 5,2:f=5 

76:PRINT STRINGS (36, 143) :LOCATE 35, 

24:PRINT f 

1130 IF vie=0 THEN 1150 

1140 GOTO 650 

1450 YHRNRENNRNNNNNENNNNNNNNENNEES )IK 

CPE 

1160 '# 
3 

1170 PHRNNMERNNEINNENRNENIINNIENIIE TD 

TT 

1180 LOCATE 1,2:PRINT STRING#(40,12 >QE 

8):PEN O:LOCATE 1,1:PRINT REMAIN(1) 

PEN 3:a$="GAME/OVER":FOR A=1 TO 1 

STEP 30:FO0R N=1 TO LEN(A$) :C=40956+ 

C(ASC(HIDS(AS,N, 1))-32)48) :D=C:FOR 

H=42732 TO 42746 STEP 2:B=PEEK(C) 

1190 ON INT(A/3+1) GOSUB 1210:C=C+1 >JJ 

:NEXT:LOCATE N+(M0#10),A:PRINT CHR$ 


VIE -1 


GAME OVER 


(254)CHR$S(8)CHRS (10)CHRS (255) :NEXT: 

NEXT: 

1200 FOR t=1 TO S000:NEXT:RUN 

1210 POKE M,B:POKE M+1,B:RETURN 
1220 'ASSRNSSUNSSNNNENNENINNNENNISS 
CE 
1230 ’: 

4 

1240 PASSHNSENNSSNNNNENENENNSNNNSES 
ut 

1250 LOCATE 12,11:PRINT STRINGS (20, 
128) 

1260 LOCATE 12,13:PRINT STRINGS (20, 
128) 

1270 LOCATE 12,15:PRINT STRINGS (20, 
128) 

1280 LOCATE 10,17:PRINT STRINGS(22, 
128) 

1290 LOCATE 10, 13:PRINT"JOYSTICK 
CLAVIER" :LOCATE 11,15:PRINT" " 
1300 PEN 3:LOCATE 10,16:PRINT" 

(2)° 

1310 IF INKEY(13)=0 THEN J1=72:32=7 
4:J33=75:34=76:CLS:GOTO 100 

1320 1F INKEY(14)=0 THEN J1=0:J2=8: 
J3=1:34=47:CLS:G0T0 100 

1330 GOTO 1310 

1340 LOCATE 10,13:PRINT STRING#(22, 
128) 

1350 LOCATE 10,16:PRINT STRING#(22, 
128) 

1360 GOTO 200 

1370 PEN 3:LOCATE 12,20:PAPER 1:PRI 
NT CHRS(70)+CHR$ (82) +CHR$ (69) +CHR$ ( 

68)+CHR$ (69) +CHR$ (82) +CHR$ (73) +CHR$ 
(67)+CHR$(46)+CHR$ (74) +CHRS (85 )+CHR 

$(76)+CHR$(73)+CHR$ (69) +CHR$ (78) :PA 
PER 0 

1380 RETURN 

1390 "HRSUNESNNENENENNNNENNEINNEEE 
#4 

1400 ’# 
# 

AALO PHRRNNNENNNENNNNNNNENNNENNEES 

#1 

1415 PEN 1:M0ODE O:LOCATE 10,23:PRIN 

T CHR#(214)+CHR$ (215) 

1420 PLOT 30,270:DRAW 70,270:DRAY 7 

0,300:DRAU 50,300:DRAW 50,290 :DRAU 

60,290:DRAW 60,280:DRAW 40,280 :DRAW 
40,320:DRAU 70,320:DRAU 70,330:DRA 

W 30,330:DRAN 30,270:PLOT 130,270:D 

RAU 130,330:DRAV 180,330:DRAU 180,2 

70:DRAW 170,270:DRAW 170,290 

1430 DRAW 140,290:DRAU 140,270 :DRAU 


CHOIX CLAVIER OÙ JOYSTICK 


(1) 


GAGNE 


)16 


>FF 
> 


)IH 


D 4] 


>ZH 


>AN 


)RY 


130,270:PLOT 170,320:DRAU 140, 320: 
DRAU 140,300:DRAU 170,300:DRAU 170, 
320:PLOT 240,300:DRAV 260, 300:DRAU 
260,270:DRAV 220,270:DRAV 220, 330:D 
RAY 260,330:DRAV 260, 320 
1440 DRAW 230, 320:DRAU 230, 280:DRAU 

250,280:DRAW 250,290:DRAU 240, 290: 
DRAW 240,300:PLOT 310,270:DRAU 310, 
330:DRAV 360,290:DRAV 360, 330:DRAV 
370,330:DRAV 370,270:DRAV 320, 310:D 
RAV 320,270:DRAY 310,270:PLOT 460, 2 
70:DRAV 420,270:DRAN 420,330:DRAN 4 
60, 330 
1450 DRAW 460, 320:DRAU 430, 320:DRAU 

430,305:DRAU 445, 305:DRAU 445, 295: 
DRAU 430,295 :DRAU 430,280:DRAU 460, 
280:DRAN 460,270:VINDOUE3, 1, 25, 10, 2 
2:PAPER43, 0:PENE3, 0:CLS#3:PAPER 0:0 
UT 48128, 1:OUT 48384,1:FOR h=0 TO 4 
0 STEP 2:OUT 48384, h:FOR b=1 TO 60: 
NEXT b,h 
1460 FOR t=1 TO 5000:NEIT:PLOT 320, 
49:DRAV 80,250:0RIGIN 50,275:FILL 1 
:0RIGIN 0,0:CLS#3:FOR t=1 TO 1000:N 
EXT:PLOT 320,49:DRAV 170,250:0RIGIN 

160,295 :FILL 2:0RIGIN 0,0:CLS43:F0 
R t=1 TO 1000:NEXT:PLOT 320, 49:DRAU 

250,250:0RIGIN 240,275:FILL 13:CLS 
13 
1470 ORIGIN 0,0:FOR t=1 TO 1000:NEX 
T:PLOT 320,49:DRAY 350, 250:0RIGIN 3 
15,290:FILL 7:CLS43:0RIGIN 0,0:F0R 
t=1 T0 1000:NEXT:PLOT 320, 49:DRAV 4 
40,250:0RIGIN 440,275:FILL 8:CLS43 
1480 PEN 2:SPEED IMK 5,5: INK 1,3, 26 
: INK 2,26, 3: INK 3,9,6:1NK 4,6,16:IN 
K 5,16,6: INK 6,9,3:IMK 7,26,8:INK 8 
,14,2:1NK 9,3,6:LOCATE 10,23:PRINT" 

*:FOR A=1 TO S000:NEXT:FOR T=15 T 
0 S0:LOCATE 1,T:PRINT CHR$(128) :SOU 
ND 1,7,50,9,9:NEIT 
1490 SCORE=SCORE+90000: MODE 1: INK 1 
,26:1NK 2,2: INK 3,6:PEN 1:LOCATE 14 
»1:PRINT"FELICITATION":LOCATE 1,3:P 
RINT"VOUS AVEZ REUSSI A VOUS FAIRE 
ENGAGE VOTRE SCORE S'ELEVE A":LOCAT 
E 14,14:PEN 2:PAPER 3:PRINT"SCORE"; 
SCORE:SPEED INK 5,5:1NK 2,6,2:1NK 3 
,2,6 
1500 PAPER O0:FOR T=1 TO 5000:NEIT:R 
UN 
1650 IT TETIETECEEI IEEE TEIIITEEETEI 
#41 
1660 ’s 

3 


TABLEAU No 4 


XL 


JG 


>EB 


)YE 


>)TF 


1670 "HSSRNSSNNESSNEENNANSNNEENNEI 
Has 

1680 DATA 5,2, 2,33, 127,5, 39, 2, 1, 127 
,6,2,2,10,127,6,27,2,8,127,6,39, 2,1 
,127,6, 12, 2,1, 226,6, 26, 2,1,226,7,3, 
2,1,226,7,6,2,1,226,7,7,2,4,127,7,2 
,2,1,127,7,11,2,1,226,7,27,2,1,226, 
7,28,2,7,127,7,39,2,1,127,8,28, 2,1, 
226, 8, 29, 2,6, 127,8, 34, 2, 1,226,8, 39, 
2,1,127 

1690 DATA 8,2, 2, 1,127,9,2,2,1,127,9 
,39,2,1,127,10,2,2,1,127,10,15,2, 1, 
214,10,16,2,9,127,10,25,2,1,215, 10, 
38,2,1,214,10,39,2,1,127,11,7,2,1,2 
14,11,8,2,32,127,11,2,2,1,127,12,7, 
2,1,226, 12,8, 2,18,127,12,26,2,1,226 


1700 DATA 13,13,2,1,226, 13, 14,2, 7,1 
27,13,21,2,1,226,12,2,2,1,127,13,2, 
2,1,127,14,2,2,1,127,14,14,2,1,226, 
14,15,2,5,127,14,20,2,1,226,14,30,2 
,1,214,14,31,2,2,127,14,33,2,1,215, 
15,2,2,1,127,15,3,2,1,215,15,30,2,4 
,127,16,2,2,9,127,16,11,2,1,215 
1710 DATA 16,29,2,1,214,16,30,2,4,1 
27,16,34,2,1,215,17,2,2,10,127,17,2 
0,2,1,214,17,21,2,14,127,17,35,2,1, 
215, 18,2,2,10,127,18,19,2,1,214,18, 
20,2,16,127,19,2,2,10,127,19,12,2,1 
215,19, 18,2,1,214,19,19,2,17,127 
1720 DATA 19,36,3,1,246,19,37,1,2,1 
43,19, 39,3, 1,247,20,2,2,34,127,16,2 
8,1,1,244,-1,0,0,0,0 
1730 ARNNNISENENNENNNNNNNNNENNEI 
CEE 
1740 '# 
4 
1790 *HHRANESNENENNNENNENNNNENNNEAN 
CPE 
1760 LOCATE 14,3:TAGOFF:PEN 2:PRINT 
"PAUSE" 
1765 IF INKEY(45)=0 THEN LOCATE 14, 
3:PRINT STRINGS (9,128) :TAG:RETURN 
1766 GOTO 1765 
1770 PHASENIENNNENNEENNUNEENNEENNEE 
ÉTÉ 
1780 '# 
# 
1790 "HRSNNENNNNENNNIENNENNNNENNEEN 
CET 
1800 DATA 5,2,2,33,127,5,39,2,1,127 
»6,2,2,1,127,6,3,2,1,224,6,4,2,1,22 
5,6,5,2,1,226,6,5,2,1,228,6,2,2,1,2 


PAUSE 


TABLEAU No 5 


)YG 


)EK 


v 


TL 


25,6,7,2,1,226,6,8,2,1,224,6,9,2,1, 
224,6,10,2,1,225,6,11,2,1,226,6, 12, 
2,1,225,6,13,2,1,226,6,6,2,1,224,6, 
14,2,1,225,6,15,2,1,226,6,16,2,1, 22 
4 
1810 DATA 6,2,2,1,127,6, 20,2,1,226, 
6,25, 2, 1,226,6,26,2,9,127,6,39,2,1, 
127,6,17,2,3,127,7,2,2,1,127,7,17,2 
,2,127,7,18,2,1,226,7,26,2,1,226,1, 
27,2,68,127,7,39,2,1,127,8,2, 2,1, 127 
,8,16,2,1,214,8,17,2,1,127,8,18,2,1 
,226,8, 27, 2,1,226,8, 28, 2,6, 127,8, 34 
,2,1,127 
1820 DATA 8,39, 2,1, 127,9, 2, 2,1, 127, 
9,9,2,1,214,9,10,2,1,127,9,11,2, 1,2 
15,9,16,2,1,127,9,17,2,1,226,9, 39,2 
,1,127,10,2,2,1,127,10,3,2,1,215, 10 
,9,2,3,127,10,16,2,1,127,10,21,2,1, 
214, 10,22, 2,1,127,10,23,2,1,215, 10, 
39,2,1,127 
1830 DATA 11,2,2,2,127,11,4,2,1,215 
,11,9,2,3,127,6,11,2,1,127,11,21,2, 
3,127,11,24,2,1,215,11,16,2,1,127,1 
0,39,2,1,127,11,38, 2, 1,214, 11,39, 2, 
1,127,12,2,2,3,127,12,5,2,1,215,12, 
9,2,1,213, 12, 10,2,2,127,12,16,2,1,1 
27,12,21,2,1,213, 12,22, 2,18, 127 
1840 DATA 13,2,2,4,127,13,10,2,1, 12 
7,13,11,2,1,212,13,16,2,1,127,13,17 
,2,1,215,13,31,2,9,127, 14,2,2,4, 127 
,14,10,2,1,127,14,16,2,1,213,14,17, 
2,1,127,14,18,2,1,215,14,31,2,9, 127 
,15,2,2,4,127,15,10,2,1,127,15,17,2 
,1,213,15,18,2,9,127,15, 27,2,1,215 
1850 DATA 15,31,2,1,213, 15,32, 2,8, 1 
27,16,2,2,4,127,16,10,2,1,127, 16,32 
,2,8,127,17,2,2,4,127,17,10,2,1,127 
,17,32,2,8,127, 18, 2, 2,4, 127,18, 10, 2 
,1,127,18,11,2,1,215,18, 91,2, 1,214, 
18,32, 2,8, 127, 19,2,2,4,127,19, 10,2, 
30, 127 
1860 DATA 20,2,2,4,127, 20,6,3,1, 246 
,20,7,1,2,143, 20,9, 3,1, 247, 20, 10,2, 
30,127,16,31,1,1,244,-1,0,0,0,0 
1870 YHHHANEANNSANNEESNNIENNENNERSS 
### 
1880 ’s 
# 
1890 YASANNENNEENNNNENNRINNNSENNEEN 
### 
1900 DATA 5,6,2,1,127,5,22, 2,2, 127, 
6,6,2,1,127,6, 22,2, 2,127,7,6,2,1, 12 
7,7,22,2,2,127,8,6,2,1,127,8,7,2,1, 


TABLEAU No 6 


V 


CR 


v 


TB 








215,8,14,2,1,226,8,15,2,2,127,8, 17, 
2,1,226,8, 22, 2,2,127,9,6,2,1,213,9, 
7,2,4,127,9, 10,2, 1,215,9, 15, 2, 2, 127 
,9,22,2,2,127,9,28,2,7,127,9,35,2, 1 
,215 
1910 DATA 10,10,2, 1,127, 10,15, 2,2, 1 
27,10,22,2,1,213,10,23,2,1,127, 10,2 
8,2,1,226, 10, 29,2,7,127,11,10,2,1,1 
27,11,15,2,2,127,11,22,2,1,214,11,3 
4,2,1,213,11,35,2,1,127,11,23,2,1,1 
27,12,10,2,1,127,12,15,2,2,127,12,1 
7,2,1,215,12,22,2,2,127,12,35,2,1,1 
27 
1920 DATA 13,2,2,4,127,13,6,2,1, 226 
,13,10,2,1,127,13,15,2,3,127,13,22, 
2,2,127,13,24,2,1,215,13,35, 2, 1,127 
,14,10,2,1,127,14,15,2,3, 127, 14,22, 
2,8,127,14,30,2,1,215,14,35,2, 1,127 
,15,10,2,1,127,15,15,2,3,127,15, 22, 
2,9,127,15,35,2,1,127 
1930 DATA 16,10,2,1,127,16,15, 2, 3,1 
27,16, 22,2,1,213, 16,23, 2,7,127,16,3 
0,2,1,226,16,35,2,1,127,17,5,2, 1,22 
6,17,6,2,4,127,17,10,2,1,226,17,15, 
2,3,127,17,35,2,1,127,19,14,2,1,214 
19,15, 2,3,127,19,18,2,1,215,19, 34, 
2,1,214,19,35,2,1,127 
1940 DATA 18,15,2,3,127,18,35,2, 1,1 
27,19,36,3,1,246,19,37,1,2, 143, 19,3 
9,3,1,247,20, 2,2, 34,122, 17,34,1,1,2 
44,-1,0,0,0,0 
1950 'HSANNENNNSENNANINNNNNNÉENEEES 
###1 
1960 *# 
+ 
1970 YHAANNEENNENANNENNENINENENNTEN 
#44 
1980 DATA 5,2,2,1,127,5,7,2,18,127, 
6,2,2,1,127,6,7,2,18,127,7,2,2,1,12 
7,7,7,2,1,213,7,8,2,17,127,8,2, 2,1, 
127,8,10,2,1,213,8,11,2,14,127,9,2, 
2,1,127,9,12,2,9,127,9,21,2,1,212,1 
0,2,2,1,127,10,3,2,1,215, 10, 12, 2,9, 
127 
1990 DATA 11,2,2,6,127,11,8,2,1,215 
,11,12,2,9,127,12,2,2, 7,127, 12, 12,2 
,9,127,13,2,2,7,127,13,13,2,1,213,1 
3,14,2,7,127,14,2,2,7,127,14,16,2,1 
,213,14,17,2,3,127,14,20,2,1,212, 14 
,24,2,1,214,15,9,2,1,215,15, 24, 2,1, 
127,15, 2,2, 7,127 
2000 DATA 16,2,2,8,127, 16,10, 2, 1,21 
5,16,23,2,1,214,16,24,2,1,127,17,2, 


TABLEAU No 7 


8 


FI 


2,9,127,17,11,2,1,215,17,22,2,1,214 
,17,23,2, 2,127, 18, 2, 2,10, 127, 18,12, 
2,1,215,18,22,2,3,127,19, 2, 2,23, 127 
,19,25,2,1,215,18,21,2,1,214, 19,31, 
1,5,140,20,2,2,38,127,17,21,1,1,244 
2010 DATA -1,0,0,0,0 


2020 YHHBENENNASNNNEUNENNNNNANNEIS 
H 
2030 's INSTRUCTION 


3 
2040 "ARRANEENENENNRENNNEENNENENNEN 
CT 
2050 CLS:LOCATE 14,1:PEN 1:PRINT®IN 
STRUCTION":LOCATE 1,3:PRINT"ON EST 
EN L'AN 2050" :LOCATE 1,5:PRINT"UN H 
ATIN VOUS DECIDEZ DE VOUS ENGAGER D 
ANS L'ARMEE SPATIALE" :PEN 3:PRINT'L 
E CHEF DE LA BASE VOUS FAIT PASSER 
UN TEST: 
2060 PRINT"A L'AIDE D'UN SCOOTER SP 
ATIAL VOUS DEVEZ DESCENDRE DANS DES 
GALERIES MAIS ATTENTION VOUS NE DE 
VEZ PAS TOUCHER LES PAROIS SOUS PEI 
NE DE PERDRE UNE VIE IL VOUS FAUDRA 
AUSSI FAIRE ATTENTION AU MONSTRE Q 
UI TIRE SANS ARRET POUR VOUS FAIRE" 
2065 PRINT"PERDRE EGALEMENT UNE VIE 
2070 PRINT"SI VOUS Y ECHAPPER VOUS 
N'AUREZ PLUS QU'A ALLER JUSQU'AU TE 
LE PORTATEUR VOUS POSER DELICATEMEN 
T SUR LA ZONE ROUGE ET VOUS PASSERE 
Z AU TABLEAU SUIVANT ET AINSI DE SU 
ITE AU DERNIER TABLEAU VOUS VOUS PO 
SEREZ SUR LA PLATE-FORNE 
2080 PRINT "ROUGE ET PUIS SE SERA G 
AGNE !!!":LOCATE 10,24:PRINT®APPUYE 
R SUR ESPACE POUR CONTINUER 
2090 IF INKEY(47)=0 THEN 2110 
2100 GOTO 2090 
2110 CLS:PEN 1:LOCATE 1,1:PRINT®LE 
JEU SE COMPOSE DE 7 TABLEAUX ET VOU 
S DISPOSEZ DE 8 VIES" 
2120 PEN 3:LOCATE 14,14:PRINT"H=PAU 
SE":LOCATE 14,16:PRINT"J=ENLEVER PA 
USE" :LOCATE 14, 18:PRINT"CLAVIER=FLE 
CHE" 
2130 LOCATE 10,24:PRINT'APPUYER SUR 
ESPACE POUR CONTINUER 
2140 IF INKEY(47)=0 THEN ORIGIN 0, 
0:G0T0 100 
2150 GOTO 2140 
2160 "##ssxs FIN DU SUPER LISTING # 
CETE 


)1G 


>6C 
»YQ 


>HP 


>JK 


)LJ 


)hC 
>TB 






EDUCATIF 


Valable pour 
Ré CPC 464 
4 CPC 664 
bg CPC 6128 


THE WAY 
OF SUCCESS 


Hibou, chou, caillou, genou, 
pou, joujou, bijou, ce n'est pas 
la liste de mes commissions 
mais bien une série d'exceptions 
à la règle des "ous". 


Vincent BOUVELLE 


B on c'est encore assez simple mais 
si on ajoute les mots composés, cela 
devient rapidement compliqué. Comme 
par hasard, votre mission, en tant que per- 
sonnage informatique est de retrouver le 
pluriel des mots proposés. Vous allez de- 
voir traverser maintes épreuves, entre 
autres un lac, où vous pourrez soit vous 
laisser porter par le courant soit nager en 
fonction de votre conviction en la bonne 
réponse. 
Au final, Dieu choisira les siens et vous 
enverra soit dans le grand hachoir soit 
en avion portant banderole pour ensuite 
rejoindre le point de départ. 
Vous commencez par régler le niveau de 
difficulté de 1 à 5 puis vous entrez vos 
initiales, le jeu commence alors par la 
traversée de l'eau si vous nagez (grâce à 
espace) vous gagnez 10 points en cas de 
réponse juste. Si votre réponse est fausse, 
vous gagnez 0 point et Dieu en gagne 
20. Si vous décidez de ne pas nager, vous 
ne gagnerez que 5 points (Dieu en ga- 
gne 5 aussi) mais vous n'en perdrez que 
10 en cas de mauvaise réponse. Et n'ou- 
bliez pas que vous n'avez que 3 vies ! 





_ANC MAY UVL LIT JuvLe33 


Begiles du jeu + 
Difficuilte C1 - S) 1 
Initiales du Joueur ff 


FAITES 


ss À LEBON 
CHOIX ! 


INFORMATIQUE 
COMMUNICATION 
DIALOGUE 3615 MHZ 


e Vous trouverez les rubriques suivantes : Toutes 
nos revues, Questions-réponses, Petites annonces, 
Boîte aux lettres, Revendeurs, Nos produits, Horos- 
cope. 


TELECHARGEMENT 3615 ARCADES 


e Que vous soyez possesseur d'un PC ou d'un CPC, 
nous vous proposons plusieurs centaines de pro- 
grammes. 


Au téléphone, 15 mn coûtent en moyenne 55 F 
Par minitel, il vous en coûte pour le même temps 15F 





JO) Musee ess ess 
20 ‘: Vincent Bouvelle : 
30 : presente 
40 ’: The Vay of the : 
50 ': Success 
Le ARC ONE HOT HOT 


90 MODE 1:1NK 1,24:INK 0,0:BORDER 0 
:PEN 1:PAPER O:PRINT'Avez-vous un e 
cran Couleur ou Monochrome": LOCATE 
16,2:INPUT"(C ou H)",z$:1F UPPERS$(z 
$)C"C"AND UPPERS(z$)>"M"THEN 90 E 
LSE MODE 1:SYHBOL AFTER 32:1NK 1,0: 
INK 2,0:1NK 3,0 
100 DEFINT A-Z:DIM de$(25):ENV 1,10 
0,3,1:ENT 1,100,2,2:ENV 2,5, -2,15:E 
NV 3,5,-2,50 
110 SYMBOL 160,24,24,60,90,60, 24,24 
+24: SYHBOL 161,153,90,60,24,24,24,2 
4,24:5YMBOL 162, 48, 48,24, 124,26,56, 
36,2:SYMBOL 163,48, 48, 28,28,56, 28,3 
9,64:SYHBOL 164, 12, 12,24,62, 88, 28,3 
6,64:SYABOL 165, 12, 12,56,56, 28,56,2 
28,2:SYMBOL 166,90,90,60, 24,56, 40,4 
0,8 
120 SYMHBOL 167,90,90,90, 24, 28,28,28 
,16:SYHBOL 168,0,4,52,28,125,14,2,1 
:SYMBOL 169,0, 32, 44,56, 190, 112,64, 1 
28:SYMBOL 170,0,0,216,59,12:SYMBOL 
171,0,0,24,216,56,6:SYMBOL 172,0,0, 
,0,255,255,189,66:SYMBOL 173,24,24 
,60,90,255,255, 189,66 
130 SYHBOL 174,126, 129, 153, 165, 189, 
165,129,126:SYMBOL 175,24,24,60, 90: 
SYMBOL 176,0,0,0,1,4,3,1,0:SYMBOL 1 
77,0,0,0,153,204,255,255, 255: SYMBOL 
178,1,2,4,8,16,32,64,128:SYMBOL 17 
9,128,64,32,16,8,4,2,1:SYMB0OL 180,0 
,126,0,126,0, 126,0, 126 
140 SYHBOL 181,0,0,0,0,0,1:SYNBOL 1 
62,12, 28,56, 112,224, 192, 128: SYMBOL 
183,0,153,90,60,24:SYMBOL 184,24,24 
255, 24,24, 24,24,24:SYMB0L 185, 24,2 
4,126,90,90,24,24,24:SYMBOL 187,128 
,240,144,144,136,232,32:SYHBOL 186, 
1,1,1,7,5,5,5,3:SYMBOL 189,0,1,0,1, 
Î 
150 SYHBOL 190,176,64,192:SYMBOL 19 


>LA 
>LB 
)LC 
>LD 
LE 
>LH 
)JU 


VB 


v 


>QF 


1,0,0,90,90,126,24,24:SYMBOL 192,0, 
0,0,0,0,137,137,74:SYHB0L 193,0,0,0 
,8,4,2:SYNBOL 194,0,0,0,16,32,64:SY 
HBOL 195,56,252,126,191,207, 255,255 
:SYHBOL 196,28, 63, 126,253, 243, 255,2 
55:SYMBOL 197,0,0,255,0,0,255 

160 SYHBOL 198,0,255,0,0,0,0,255:SY 
HBOL 199,0,0,60,60,60,60:S5YHB0L 188 
.85:SYMBOL 200,255,4,14,63,99, 127,6 
3,17:SYMBOL 201,224,0,5,2,149,248:h 
19=CHR$ (204) +CHR$ (201) :SYMBOL 202,3 
1,4,14,63,99,127,63:5YMBOL 203,0,0, 
2,7,154,248:h2$=CHR$ (202) +CHR$ (203) 


170 SYHBOL 204,255,4,14,63,99,127,6 
3:SYMBOL 205,31,4,14,63,99,127,63,1 
7:h39=CHR$ (200) +CHR$(201) :SYMBOL 20 
8,31,228,14,63,99, 127,63, 17:SYMBOL 
209,0,224,0,0,128,194,53,26 

180 SYMBOL 220, 136, 142, 143, 159,255, 
159,136,8:SYNBOL 221,63, 8, 4,255,255 
,255,3,3:SYMBOL 222,244,68, 132,244, 
252,244,4,4:av$=CHRS (220) +CHR$(221) 
+CHR$(222) :df=1:G0SUB 1460 

190 RESTORE:FOR 1=1 TO 41:READ B,C, 
D:PEN 1:LOCATE B,C:PRINT STRINGS (D, 
143):NEXT:FOR 1=1 TO 6:READ B,C:LOC 
ATE B,C:PRINT CHR#(213) :NEXT:FOR 1= 
1 TO 10:READ B,C:LOCATE B,C:PRINT C 
HR$(212):NEXT:FOR 1=1 TO 9:READ B,C 
:LOCATE B,C 


200 PRINT CHR$(214):NEXT:LOCATE 18, : 


17:PRINT CHR$(215):LOCATE 27,7:PRIN 
T CHR$(215);" “;CHR$ (214) :LOC 
ATE 13,18:PRINT CHR$(215):LOCATE 27 
.8:PRINT CHR$(212);" *;CHRS (2 
13) 

210 PEN 2:FO0R 1=1 TO 28:RFAD B,C,D: 
LOCATE B,C:PRINT STRINGS(D, 143) :NEX 
T 

220 LOCATE 1,1:PRINT CHR$(22) +CHR$( 
1):READ A:FOR 1=1 TO A:READ B,C:LOC 
ATE B,C:PRINT CHR$(212) :NEXT 

230 FOR 1=1 TO 3:READ B,C:LOCATE B, 
C:PRINT CHRS(215) :NEXT:LOCATE 13,18 
:PRINT CHR#(213) :LOCATE 19,12:PRINT 
CHR$(214) :LOCATE 18,13:PRINT CHR$( 
214) :PRINT CHR$(22) +CHR$ (0) :LOCATE 
15,24:PEN 1:PRINT CHR$(212):PRINT C 
HRS(22)+CHR$# (1) 

240 ph#="THE WAÏ OF THE SUCCESS" :LO 
CATE 10,1:FOR j=1 TO LEN(ph#):FOR t 
=0 TO 7:p=PEEK(HIMEH+1+(ASCCHID8 (ph 


10 


Ë 


VA 


v 


JW 


$,3,1))-32)28+t) :a(t)=p:NEXT :SYMBOL 
254,a(0),8(0),a(1),m(1),m(2),m(2), 
2(3),n(3):SYMBOL 255,n(4),n(4),n(5) 
,2(5),8(6),n(6),n(7),m(7) 
250 PRINT CHR$(22)+CHR$(1);:PEN 2:P 
RINT CHR$(254)::PEN 1:PRINT CHRS(10 
);CHRS (8) ;CHR$ (255) ;CHRS (11) ; :NEXT: 
PRINT CHR$(22)+CHR$ (0) 
260 PRINT CHRS(22)+CHRS(1):PEN 3:L0 
CATE 18,17:PRINT CHRS(176)+STRINGS( 
17,177) :LOCATE 11,17:PRINT CHRS(178 
):LOCATE 10,18:PRINT CHRS$(178) 
270 PEN 3:LOCATE 4,12:PRINT CHR$(17 
2):FO0R 1=23 TO 24:LOCATE 6,1:PEN 3: 
PRINT CHR$(143)+CHR$(197)+"  "+CHR 
$(198)+CHR$ (143) :NEXT:PEN 2:PRINT C 
HRS(22)+CHR$(1):FOR 1=4 TO 17:LOCAT 
E i,13:PRINT CHR$ (188) :NEXT 
280 LOCATE 3%6,6:PEN 3:PRINT h39:PLO 
T 560,302,2:DRA4 590,302:PEN 1:LOCA 
TE 1,5:PRINT CHRS(214)+CHR$(143)+CH 
R$(215):PLOT 14,350,1:DRAW 128,350: 
DRAV 128,370:DRAU 14,370:DRAU 14,35 
O:LOCATE 13,21:PEN 1:PRINT av$:LOCA 
TE 14,23:PEN 2:PRINT CHR$(143) 
290 PLOT 510,350:DRAV 624,350 :DRAV 
624,370:DRAU 510,370:DRAU 510,350 
300 PEN 2:F0R i=20 TO 32:LOCATE i,1 
1:PRINT CHR$(188):NEXT:PRINT CHRS(2 
2)+CHRS(0):1F UPPERS(z$)="C"THEN IN 
K 1,15:INK 2,16:INK 3,11 ELSE INK 1 
,15:INK 2,5:1NK 3,11 
310 DATA 1,7,1,4,7,23,1,8,1,4,8,1,1 
8,8,9,1,9,1,4,9,1,1,10,1,5,10,11,1, 
11,1,20,11,13,1,12,1,32,12,1,36,12, 
1,2,13,16,32,13,1,36, 13,1,3,14,29,3 
6,14,1,36,15,1,36,16,1,12,17,6,36,1 
7,1,19, 18, 18, 14,19,27,5,20,1,5,21,1 
,5,22,1,13,22,3,5,23,1,13,23,3 
320 DATA 5,24,1,13,24,3,36,9,1,36,1 
0,1,36,10,1,36,11,1,36,7,5,36,8, 1,2 
55:1,1,6,1 
330 DATA 4,10,1,13,2, 14, 12, 18, 13, 19 
18,18 
340 DATA 17,9,16,10, 19, 12,18, 13,32, 
14,10,15,9,16,8,17,7,18,6,19 
350 DATA 17,8,16,9,9,15,8, 16, 7,17,6 
,18,5,19,19,11,18, 12 
360 DATA 5,8,12,5,9,11,20,12,12,19, 
13,13,37,12,4,37,13,4,37,14,4,37,15 
5437,16,4,37,17,4,37,17,4,37,18,4, 
14,18,4,1,14,1,1,15,8,1,16,7,1,17,6 
»1,18,5,1,19,4,1,20,4,1,21,4,1,22,4 


> 4 


V 


V 


> 4 


WE 


Wk 


CB 


,1,23,4,1,24,4,37,8,4,37,9,4,37, 10, 


4,37,11,4 
370 DATA 7,17,8,16,9,9,15,8,16,7,17 DKY 
,6,18,5,19 

380 DATA 1,13,2, 14, 18,18 D 
300 REM # INITIALISATION à »VG 


400 sc=0:0d=0:v4=3:c=0:cp#=0:no$=CH >TL 
R$(22)+CHR$ (0) :tr$=CHR$(22)+CHRS (1) 
:RANDOMIZE TIME 

410 PEN 1:LOCATE 2,3:PRINT in$:SOUN )EZ 
D 1,5,20,1,1,1,5:LOCATE 5,3:PRINT U 
SING" #44" ;sc:LOCATE 33,3:PRINT"AN" 
:LOCATE 36,3:SOUND 1,5,20,1,1,1,5:P 
RINT USING"##88" ;od 

420 q=B:u=6:n$="":t$=n8$:FOR i=vaTO >NR 
1 STEP-1:LOCATE 41-i,6:PEN 2:PRINT 

CHR$ (160) :NEXT 

430 1F sc>9999 THEN 1800 >0A 
440 cpX=cpiti:iF cp£=20 THEN cpt=0: >Qw 
df=df+i:FOR i=0 TO 25:de$(1)=0:NEXT 

:1F df=5 THEN df=1 


450 1F df=0 THEN RESTORE 1240 NU 
460 IF df=i THEN RESTORE 1240 > 
470 IF dt=2 THEN RESTORE 1280 NC 
480 IF df=3 THEN RESTORE 1320 )uz 
490 IF df=4 THEN RESTORE 1360 JF 
500 IF df=5 THEN RESTORE 1380 VA 


510 ee=INT(RND(1)223)+1:FOR u=1 TO NE 
ee:READ a%,a$,b$:NEXT:FOR j=0 TO 20 

:1F a$=des$(ji)THEN 510 ELSE NEXT:de$ 
(c)=a$:c=cti 

520 LOCATE 4,5:1F a%=0 THEN PRINT"u >GH 
n "+a$ELSE IF a%=i THEN PRINT'une 
+a$ELSE IF a%=2 OR a%-3 THEN PRINT" 

des "+af 

530 LOCATE 4,6:1F a%=0 OR a%=1 THEN >]R 
PRINT"des ."ELSE IF a%=2 THEN PRIN 

T'un ."ELSE IF a%=3 THEN PRINT"une 


540 IF a%=2 THEN q=7 vL 

550 t#=INKEYS:1F t$=""THEN 550 ELSE >TD 
IF t$=CHR$(13)AND LEN(n$)>2 THEN 6 

10 

560 1F T$=CHRS(127)THEN 1F(q>7 AND )XN 

a%=2)08(q>8 AND(at=1 OR a%=0 OR aÿ- 

3))THEN q=q-1:n$=LOWERS(MID$(n$,1,L 

EN(n$)-1)):1F a%=2 THEN LOCATE 7,6: 

PRINT n$+". "ELSE LOCATE 8,6:PRINT 

n$t",« 

570 IF qg=26 THEN 550 > 

580 IF t$=CHR$(4S)THEN LOCATE q,w:P >8Z 

RINT CHR$(45)+".":q=qti:n$=n$+ts:G0 

TO 550 


590 PEN 2:1F ASC(t9)(65 OR ASC(t#)»> >AE 
90 AND ASC(t$)2123 THEN 550 ELSE LO 

CATE q,u:PRINT LOVERS(t$)+".":q=q+i 
sn$=n$+t$:G0T0 550 

600 REM # Chemin de G.L. # >RV 
610 IF a%-0 OR aÿ=1 THEN b$="des "+ )LT 

LOWERS$(b$):N$="des "+LOWERS (n$)ELSE 
IF a%=2 THEN b$="un "+LOWERS(b$):N 
$="un "“+LOVER$(n$)ELSE IF a%=3 THEN 
bt$="une "+LOWER$(b$):N$="une "+LOW 
ER$(n$) 

620 n=0:FO0R i=40-vxTO 37 STEP-1:PRI 
NT tr$:LOCATE i,6:PRINT CHRS(162+n) 
:PRINT no$:LOCATE 1+1,6:PRINT" ":n= 
n+i:1F n>1 THEN n=0 

630 FOR u=1 TO 200:NEXT:NEXT:LOCATE >YG 
37,6:PEN 3:PRINT CHR$(201):FOR u=1 

TO 300:NEXT:FOR i=1 TO 20:LOCATE 3 

6,6:1F n=0 THEN PRINT h3#ELSE PRINT 
CHR$ (205) +CHR$ (203) 

640 SOUND 1,200,10,1,1,1,5:n=nt1:1F >NZ 
n>{ THEN n=0 

650 FOR u=1 TO 300-1#10:NEXT:NEXT:L >GY 
OCATE 36,6:1F n=0 THEN PRINT h1$ELS 

E PRINT h24 

660 SOUND 1,200,10,1,1,1,5:F0R u=1 MR 

TO 200:NEXT 

670 FOR i=35 TO 2 STEP-1:LOCATE i,6 >BC 
:1F n=0 THEN PRINT hi$+" "ELSE PRIN 
Th2$+"" 

680 SOUND 1,200,10,1,1,1,5:n=n+1:1F >ND 
n>1 THEN n=0 | 

690 FOR u=1 TO 150:NEXT:NEXT )IN 
700 FOR i=7 TO 12:LOCATE 2,i-1:PRIN >UN 
T" ":LOCATE 2,1 

710 IF n=0 THEN PRINT hi$ELSE PRINT )FZ 
h24 

720 SOUND 1,200,10,1,1,1,5:n=nt1:1F NY 
n>i THEN n=0 

730 FOR u=1 TO 150:NEXT:NEXT >1Q 
740 LOCATE 2,12:PRINT h3$ >TY 
750 FOR i=1 TO 10:LOCATE 2,12:1F n= )FQ 
O THEN PRINT h34ELSE PRINT CHR$(205 
)+CHRS (203) 

760 SOUND 1,200,10,1,1,1,5:n=nt1:1F >NC 
n>1 THEN n=0 

770 FOR u=1 TO 500+1#2:NEXT:NEXT AB 
780 LOCATE 4,12:PRINT CHR$(172):PRI )ER 
NT CHR$(22)+CHR$(1):PEN 2:LOCATE 4, 
12:PRINT CHR#(175):PRINT CHR#(22)+C 
HR#(0):FOR 1=4 TO 16:PEN 3:LOCATE 1! 
,12:PRINT" "+CHRS(172):PRINT CHRS(2 
2)+CHR$(1):LOCATE 1+1,12:PEN 2:PRIN 


Vv 


VV 


FU 
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T CHRS(175):PRINT CHRS(22)+CHR$ (0) 

790 pepe=pepe+i:1F pepe>3 THEN pepe )FJ 

=0 

800 IF pepe=i THEN SOUND 1,100,10,1 >RQ 
»1,1,5:G0T0 810 

810 FOR u=1 TO 200:NEXT:NEXT )IK 

820 LOCATE 17,12:PRINT" ":PRINT CHR NB 

$(22)+CHR$(1):PEN 3:LOCATE 17,12:PR 

INT CHRS(181)+CHR$(182) :LOCATE 17,1 

2:PEN 2:PRINT CHR$(189)+CHR$ (190) :F 

OR u=1 TO 200:NEXT:PRINT CHR$#(22)+C 

HR$# (0): SOUND 1,100,10,1,1,1,5 

830 PRINT CHR$(22)+CHR$(0) :LOCATE 1 >TE 

7,12:PEN {:PRINT" "+CHRS$(214) :PRINT 
CHRS(22)+CHR$ (1) 

840 PRINT CHR$(22)+CHR$(1):LOCATE 1 >JQ 

8,11:PEN 3:PRINT CHR$(181)+CHR$(182 
):LOCATE 18,11:PEN 2:PRINT CHR$(189 
)+CHR$(190):FOR u=1 TO 200:NEXT:PRI 

NT CHR$(22)+CHR$(0) :LOCATE 18,11:PE 

N L:PRINT" "+CHR$(214):PEN 3 

850 FOR 1=19 TO 31:PEN 3:LOCATE 1,1 >RU 

O:PRINT" "+CHRS(172):PRINT CHRS(22) 

+CHRS (1) :LOCATE 1+1,10:PEN 2:PRINT 

CHR$(175):PRINT CHR$(22)+CHR$ (0) :PE 

N3 

860 pepe=pepeti:1F pepe>3 THEN pepe >FG 

=0 

870 IF pepe=1 THEN SOUND 1,100,10,1 >RF 

»1,1,5:G0T0 880 

880 FOR u=1 TO 200:NEXT:NEÂT:LOCATE >CX 
32,10:PRINT CHR$(172) 

890 PEN 2:FOR 1-9 TO 15:LOCATE 33,1 >4P 

:PRINT® “:LOCATE 33,1+1:PRINT CHR$( 

166):FO0R u=1 TO 200:NEXT:NEXT :LOCAT 

E 33,16:PRINT" “:PRINT tr$:PEN 3:L0 

CATE 32,16:PRINT CHR$(193)+CHR$ (192 

)+CHR$ (194) :LOCATE 32,17:PEN 3:PRIN 

T CHR$(195)+" "+CHR$(196) :PEN 2 

900 LOCATE 33,17:PRINT CHR$(191) :F0 

R u=i TO 350:NEXT:PRINT no$:LOCATE 

32,16:PRINT" ":LOCATE 32,17:PEN 3 
:PRINT STRING#(3,177):PRINT tr$:PEN 
2:LOCATE 33,17:PRINT CHR$(183) 

910 s=0:FOR 1=1 TO 500:1F INKEY(47) >JL 

=0 THEN N=1:G0T0 920 ELSE NEXT 

920 NO$=CHRS (22) +CHR$ (0) : TR$=CHRS (2 

2)+CHRS(1):1F M=0 THEN FOR 1=32 TO 
19 STEP-1:PRINT TRS:PEN 2:LOCATE 1, 

17:PRINT CHR$(183):PRINT NO$:LOCATE 
1+1,17:PEN 3:PRINT CHRS(177):FOR u 

=1 TO 200:NEXT:NEXT:G0TO 950 

930 IF M=1 THEN N-0:FOR 1=32 TO 19 >PL 


V 


FB 


VV 


EU 


STEP-1:PRINT NO$:LOCATE 1+1,17:PEN 
3:PRINT CHR$(177):PRINT TR$:PEN 2:L 
OCATE 1,17:PRINT CHRS$(1704N) :N=N+1: 
IF N>1 THEN N=0 
940 FOR u=1 TO 300:NEXT:NEXT 
950 PRINT N0O$:LOCATE 19,17:PEN 3:PR 
INT CHR$(177):PEN 2:FOR 1:17 TO 12 
STEP-1:LOCATE 1,16:PRINT CHR$(162+N 
)+" ":N=N+1:1F N>1 THEN N=0 
960 FOR u=1 TO 200:NEXT:NEXT:LOCATE 
12,16:PRINT" * 
970 PRINT TR$:LOCATE 11,17:PRINT CH 
R$(169) :PRINT NO$:FOR u=1 TO 200:NE 
XT:LOCATE 11,17:PEN 3:PRINT CHRS#(17 
8):PRINT TR$:PEN 2:LOCATE 10,18:PRI 
NT CHR$(169):FOR u=1 TO 200:NEXT:PR 
INT NO$:LOCATE 10,18:PEN 3:PRINT CH 
R#(178) 
980 IF N$=B$THEN 990 ELSE 1090 
990 PEN 3:LOCATE 10,19:PRINT CHRS(1 
79):LOCATE 11,20:PRINT CHR$(179) :LO 
CATE 12,21:PRINT CHR$#(179):PRINT TR 
$:PEN 2:LOCATE 10,19:PRINT CHRS(168 
):PRINT NO$:FOR u=1 TO 200:NEIT:PEN 
3:LOCATE 10,19:PRINT CHR$(179) :PRI 
NT TRS:PEN 2:LOCATE 11,20:PRINT CHR 
$(168) 
1000 PEN 3:FOR u=1 TO 200:NEIT:PRIN 
T no$:LOCATE 11,20:PRINT CHR$(179) 
1010 PRINT tr$:LOCATE 12,21:PEN 2:P 
RINT CHR$(168):FOR u=1 TO 200:NEXT: 
PRINT NO$:PEN 3:LOCATE 12,21:PRINT 
CHR$(179):PEN 2:FOR u=1 TO 200:NEXT 
:PEN 2:LOCATE 13,21:PRINT CHR#(165) 


1020 FOR u=1 TO 100:NEÂT:N=0:5=1:F0 
R 1=1 TO LEN(B$):LOCATE 13,21:PAPER 
1:PEN O:PRINT RIGHT$(B$, 1) ; :PAPER 

O:PEN 1:PRINT av$:5=S+1 

1030 FOR u=1 TO 100:NEXT:NEXT:FOR 1 
=13 TO 36-LEN(B$):LOCATE 1,21:PRINT 
" ";:PAPER 1:PEN O:PRINT B$;:PAPER 

O:PEN 1:PRINT av$:FOR u=1 TO 100:NE 
IT:NEIT 

1040 FOR i=3 TO 1 STEP-1:LOCATE 40- 
LEN(b$)-i,21:PRINT" ";:PAPER 1:PEN 

O:PRINT b$;:PEN 1:PAPER O:PRINT LEF 
T$(av$,i):FOR u=1 TO 100:NEXT:NEXT 

1050 b$=b$:5=LEN(b#):FOR i=40-5 TO 

40:LOCATE i-1,21:PAPER O:PEN 1:PRIN 
T" “::PAPER 1:PEN O:PRINT LEFTS(b$ 
»3);:PAPER O:PEN 1:5=93-1 

1060 FOR u=1 TO 100:NEXT:NEXT:PAPER 


1 
>RF 


)IC 


LA 


V 


KV 


V 


LE) 


)JD 


>EB 


0 

1070 IF a=0 THEN sc=sc+5:0d=od#5 EL 
SE IF a=1 THEN sc=sc+10 

1080 GOTO 1190 

1090 PEN 2:FO0R i=19 TO 24:LOCATE 9, 
i-1:PRINT" ":LOCATE 9,i:PRINT CHR$( 
166):FOR u=i TO 200:NEXT:NEXT:LOCAT 
E 9,24:PRINT CHR#(184):FO0R i=1 TO 2 
00:NEXT:PEN 3:LOCATE 6,23:PRINT CHR 
$(210)+CHR$(143)+CHR$(197)+" "+CHRS 
(198) +CHR$(143)+CHR# (210) 

1100 LOCATE 6,24:PRINT" "+CHRS(143) 
+CHR# (197) :LOCATE 10,24:PRINT CHR$( 
198)+CHR$(143)+" ":LOCATE 9,24:PEN 
2:PRINT CHR$(185) 

1110 FOR i=1 TO 300:NEXT:LOCATE 7,2 
3:PEN 3:PRINT CHR$(210)+CHR$ (143) +C 
HR#(197):LOCATE 7,24:PRINT" "+CHRS( 
143)+CHR$(197):PRINT tr$:LOCATE 9,2 
3:PRINT CHR#(198)+CHR$ (143) ; :PRINT 
no$::PRINT CHR$(210):PRINT tr$ 

1120 LOCATE 9,24:PRINT CHR$(198)+CH 
R$(143);:PRINT no$;:PRINT" ":PRINT 
tr$ 

1130 PEN 2:LOCATE 9,24:PRINT CHR$(1 
86)+CHR$(187):PRINT no$:FOR i=1 TO 
500:NEXT 

1140 LOCATE 4,6:PEN 2:PRINT b$:FOR 
i=1 TO 3000:NEXT 

1150 IF a=0 THEN od=od+10 ELSE IF a 
=1 THEN od=0od+20 

1160 vx=vx-1:FOR i=1 TO 1000:NEXT:1 
F vä=0 THEN 1800 ELSE GOTO 1190 
1170 END 

1180 REM = Tour suivant # 

1190 FOR 1-23 TO 24:LOCATE 6, 1:PEN 
3:PRINT CHR$(143)+CHR$(197)+"  "+C 
HR#(198)+CHR$(143):NEXT:FOR u=1 TO 
200:NEXT 

1200 FOR i=19 TO 21:LOCATE 10,i:PRI 
NT" ":NEXT:LOCATE 32,10:PRINT" *: 
PEN 3:LOCATE 4,12:PRINT CHR$(172):L 
OCATE 2,12:PRINT" ":LOCATE 36,6:PR 
INT h38:PEN 1:LOCATE 13,21:PRINT av 
$ 

1210 LOCATE 4,5:PRINT SPACES (32) :LO 
CATE 4,6:PRINT SPACE$(32) :PEN 2:G0T 
0 410 

1220 REN # nots a copier, yeux fera 
es 3 

1230 ': Niveau 1 : 

1240 DATA {,barque, barques, {,saucis 
se, saucisses, 0, accident, accidents, 0 


12 


AZ 


)H 


>VD 


VV 


Dù 


V 


AA 


)EG 


1 
)K 


,train,trains,{, periode, peri1odes, 0, 
tossoyeur, fossoyeurs,1,fraction,fra 
ctions,{,fenmse,fesnes,1,valise,vali 
ses, {,maison, saisons, 1, table,tables 
,0,ordinateur,ordinateurs,0,nos,nos 
gs 

1250 DATA 1, touche, touches, 1, trouss 
e, trousses, 0, casque, casques, i,sanet 
te,sanettes,0,biberon,biberons,0,te 
lephone, telephones, 0, lit, lits 

1260 DATA 1,radio,radios,0, cube, cub 
es,2,reveils,reveil,3,fenetres,fene 
tre 

1270 ‘: Niveau 2 : 

1280 DATA 0, bi jou, bi joux,U, joujou, | 
oujoux, 0, chou, choux, 0, noeud, noeuds, 
2, py iasas, py jana, 2, souc1s,souc1,0,0 
util,outils,i,erreur,erreurs,2,cong 
res,congres 

1290 DATA 1,paroi,parois,0,etui,etu 
19,0,essai,essais,U,sateriel,sateri 
els,0,citoyen, citoyens, 0,bal,bals,0 
scarnaval,carnavals,0,detail,detail 
s,0,portail,portails 

1300 DATA 0, trou, trous, U,ciou,clous 
,0,eventail,eventails,0,appareil,ap 
pare115,2,decors, decor, 2,parcours,p 
arcours 

1310 ’: Niveau 3 : 

1320 DATA 3,perdrix,perdrix,2,prix, 
prix, 2,palais,palais,0,nez,nez,2,na 
heureux, salheureux,2,frisas,trinas 


1330 DATA 2,satelas,natelas,2,corps 
, Corps, 2, amoureux, amoureux, 2,abus,a 
bus, 2,anchois,anchois,2, croquis, cro 
quis, 2, compas, compas, 2,univers, univ 
ers,2.refus,refus,2,chasps, champ, 2, 
printesps, printesps,0,oeil,yeux 

1340 DATA 2,agendas, agenda, 0,pre,pr 
es,0,enieu,enjeux, 0, panneau, panneau 
1,0, lieu, 1ieux,0,hibou, hiboux, 2,she 
sas, shema,0, conseil, conseils, 0,peti 
t-fils,petits-fils,0,residu,residus 


1350 ‘: Niveau à : 

1360 DATA 2,persis,persis,2,debarra 
s,debarras,2, discours, discours, 2,ca 
denas, cadenas, 2, enclos, enclos, 2, deb 
ris,debris 

1370 DATA 0, rouleau, rouleaux, 0, pote 
au, poteaux, 0, reseau, reseaux, 0, preau 
spreaux,0,berceau, berceaux, 0, noyau, 


D 


> 


V 


» 


Lu 


A 


xH 


>HB 


LA 


} 
) 


VV 


JF 


YB 
EZ 


IF 


noyaux, 0, auseau, auseaux, 0, cheveu, ch 
eveux 
1380 DATA 2,poids,poids,0,bouleau,b >EV 
ouleaux,0, coucou, coucous, 0, journal, 
journaur, 0, local, locaux, 0, cardinal, 
cardinaux 
1390 DATA 1, voix, voix, 0, cerf-volant >DK 
,cerfs-volants,0,poisson-chat,po1ss 
ons-chats,2,apprentis,apprenti,2,pe 
tits-fils.petit-fils 
1400 ’: Niveau 5 : )IH 
1410 DATA 2,cerfs-volants,cerf-vola DAT 
nt,2,poissons-chats, poisson-chat,2, 
apprentis,apprenti,0, genou, genoux, 2 
ranges-cassettes,range-cassettes,2 
,&ardes-salades, garde-salade, 2, rond 
s-points, rond-point 
1420 DATA 3,paltes-forses,plate-for >TG 
se,0,appui-tete,appuis-tete,2,treso 
riers-payeurs, tresorier-payeur, 3,pl 
ates-bandes, plate-bande, 2, presses-p 
apiers,presse-papiers,0,sonsieur,me 
ssieurs,0,bonhosse, bonshoases, 2, sal 
sifis,salsifis 
1430 DATA 2,sous-vetesents,sous-vet >ZB 
esent,2,vagons-restaurants,wagon-re 
staurant,2,coffres-forts,cofftre-for 
t,0, sourd-auet, sourds-auets, 3,bel le 
-sere,belles-seres,0,sarteau-pilon, 
sarteaux-pilons,2,tiroirs-caisses,t 
i1roir-ca1sse, 0, rendez-vous, rendez-v 
ous 
1440 DATA 2,sous-bois, sous-bois,0,3 >TH 
ous-prefet,sous-prefets,0,sous-sol, 
sous-5015,0,sous-aultiple, sous-ault 
iples,2,cerfs-volants,cerf-volant,2 
,Poissons-chats, poisson-chat, 2, appr 
entis,apprenti,0, genou, genoux, 2,ran 
ges-cassettes, range-cassettes 
1450 ’: Presentation : )YC 
1460 HODE 1:1NK 0,0:INK 1,0:INK 2,0 >TH 
: INK 3,0:BORDER 0 
1470 PAPER 11:CLS:PAPER O:PEN 1:FOR >GW 
i=2 TO 39:LOCATE i,12:PRINT CHRS(1 
99) :LOCATE i,20:PRINT CHR$ (199) :NEX 
T:FOR i=13 TO 19:LOCATE 14, i:PRINT 
CHR$(199) :LOCATE 26, i:PRINT CHR$(19 
9) :NEXT 
1480 PEN O0:FOR j=3 TO 27 STEP 12:F0 >ME 
R i=13 TO 19:LOCATE j,i:PRINT STRIN 
G$(11,143):NEXT:NEXT:PEN 1:LOCATE 5 
»13:PRINT CHR$(143);:PEN 2:PRINT ST 
RING$ (8, 143) 


1490 PRINT CHR$(22)+CHR$(1):FOR 1=3 >PG 
TO 13:PEN 1:LOCATE i,19:PRINT CHRS 
(143):PEN 2:LOCATE i,19:PRINT CHR$( 
188) :NEXT:PRINT CHR$(22)+CHR$ (0) :PE 

N 1:LOCATE 5,14:PRINT CHR$(213)+STR 
ING$ (8, 143) :LOCATE 3,19:PEN 1:PRINT 
CHRS(143)+CHR$ (143) 

1500 cu=2:ph$=CHR$(165) :LOCATE 5,17 >RK 
:GOSUB 1740:cu=3:ph$=CHR$ (172) : LOCA 

TE 7,17:G0SUB 1740:PEN 1:LOCATE 15, 
14:PRINT STRINGS(3,143)+CHR# (212) :F 

OR i=13 TO 19:LOCATE 25,i:PRINT CHR 
$(143) :NEXT 

1510 cu=3:ph$=STRING$(10,177):LOCAT >MD 
E 15,18:G0SUB 1740:cu=3:ph$=CHR$ (19 
3)+CHR$(192)+CHR$ (194) :LOCATE 19,16 
:GOSUB 1740:ph$=CHR$(195)+" "+CHR$( 
196) :LOCATE 19,18:G0SUB 1740:cu=2:p 
h$=CHR$(183) :LOCATE 20,18:G0SUB 174 

0 

1520 PEN 1:FOR i=13 TO 19:LOCATE 27 >JV 
»i:PRINT CHR$(143):LOCATE 38, i:PRIN 

T CHRS(143):NEXT:FOR i=28 TO 37:L0C 

ATE i,19:PRINT CHR$(143) :NEXT:ph$=C 
HR$(210)+CHR$(210):cu=3:LOCATE 28,1 

5:G0SUB 1740:LOCATE 36,15:GO0SUB 174 

0 

1530 ph+=CHR$(143)+CHR$ (143) :LOCATE DEN 
30,15:G0SUB 1740:LOCATE 34, 15 :GOSU 

B 1740:LOCATE 30,17:G0SUB 1740:LOCA 
TE 34,17:G0SUB 1740:LOCATE 3,17:ph$ 
=CHR$(200)+CHR$ (201) :GOSUB 1740 
1540 ph$=CHR$ (197) +CHR$(197) :LOCATE 
32,15:G0SUB 1740:LOCATE 32, 17:G0SU 
B 1740:ph$=CHR$ (198) +CHR$ (198) : LOCA 

TE 32,15:G0SUB 1740:LOCATE 32,17:G0 
SUB 1740 

1550 cu=2:ph$=CHR$(186)+CHR$(187):L >YN 
OCATE 32,17:G0SUB 1740:LOCATE 15,13 
:PEN 2:PRINT STRING$(3, 143); :PEN 1: 
PRINT CHR$(143) 

1560 PLOT 32,206,1:DRAW 206,206:DRA >ND 
W 206,96:DRAN 32,96:DRAW 32, 206 :PLO 

T 224,206:DRAW 390,206:PLOT 224,206 
:DRAW 224,96:DRAW 390,96:PLOT 432,2 
06:DRAW 600,206 

1570 ph$="The Way of the Success" :P >NG 
APER 3:LOCATE 9,2:G0SUB 1780:ph$="C 

ree et Realise par Vincent Bouvelle 
*:LOCATE 3,23:G0SUB 1780 

1580 PEN O:LOCATE 9,6:PRINT"Regles >CQ 
du jeu":LOCATE 9,8:PRINT"Difficul 

te (1 - 5) ";df:LOCATE 9,10:PRINT" 


VV 
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Initiales du joueur AA":ab=6:BORDER 
11:1F UPPERS(Z$)="C"THEN INK 1,15: 

INK 2,16:1NK 3,11 ELSE INK 1,15:1NK 
2,5:INK 3,11 

1590 LOCATE 32,ab:PRINT CHR#(242) AU 
1600 mn$=INKEYS:1F an$=""THEN 1600 >BN 
1610 IF mn$-CHR$(240)AND ab>6 THEN >BM 

LOCATE 32,ab:PRINT" ":ab=ab-2:LOCAT 

E 32,ab:PRINT CHR$(242) 

1620 IF an$=CHR$(241)AND ab(10 THEN >DL 
LOCATE 32,ab:PRINT" ":ab=ab+2:LOCA 

TE 32,ab:PRINT CHRS$ (242) 

1630 1F mn$-CHR$(13)AND ab=6 THEN 1 >DW 
940 

1640 IF mn$=CHR$(242)AND ab=8 AND d >JR 
f>1 THEN df=df-1:LOCATE 29,8:PRINT 

USING"84";df 

1650 IF an$-CHR$(243)AND ab=8 AND d JU 
t€5 THEN df=df+i:LOCATE 29,8:PRINT 
USING"#4" :df 

1660 IF mn$=CHR$(13)AND ab=10 THEN >WR 
gh=29:GO0SUB 1680:MODE 1:1NK 1,0: INK 
2,0:INK 3,0:BORDER O:PAPER O:RETUR 

N 

1670 GOTO 1600 NW 
1680 h$=UPPERS(INKEY#):1F h$=""THEN DHL 
1680 

1690 IF h$=CHR$(127)AND gh)29 THEN )QA 
gh=gh-1:LOCATE gh,10:PRINT" ":in$=h 
ID$(in$,1,LEN(in$)-1):GOT0 1680 

1700 1F h$CCHR$(127)AND gh<31 THEN >BL 
LOCATE gh,10:PRINT h$:gh=ght{:in$= 
in$+h$ 

1710 IF H$=CHRS(13)AND IN$C""THEN >JN 
RETURN 

1720 GOTO 1680 >NC 
1730 LOCATE 1, 1:END JNJ 
1740 FOR 1=1 TO LEN(ph#):FOR t=0 TO >JN 
7:p=PEEK(HIMEN+1+(ASC(HID#Cph$, 1,1 
))-32)#8+t) 

1750 a(t)=p:NEXT:SYMBOL 254,m(0),m( >VF 
0),n(1),a(1),n(2),n(2),m(3),n(3):SY 
MBOL 255,8(4),n(4),n(5),m(5),n(6),n 
(6),n(7),n(7) 

1760 PRINT CHR$(22)+CHR$(1);:PEN cu >VC 
:PRINT CHR$(254) :CHR# (10) ;CHR#(B) ;C 
HR$ (255) ;CHR$ (11) ; 

1770 NEXT:PRINT CHR$(22)+CHR$(0):RE >JZ 
TURN 

1780 FOR j=1 TO LEN(ph$):FOR t=0 TO >VB 
7:p=PEEK(HIMEN+1+(ASCCNIDS$ (ph$, j,1 
))-32)#8+t):m(t)=p:NEXT:SYHBOL 254, 
8(0),8(0),n(1),n(1),n(2),n(2),n(3), 


a(3):SYMBOL 255,n(4),n(4),n(5),8(5) 
»2(6),n(6),a(7),m(7) 

1790 PRINT CHR$(22)+CHR$(1):;:PEN 2: >GH 
PRINT CHR$ (254); :PEN O:PRINT CHR#(1 

0) ;CHRS (8) ;CHR# (255) ;CHRS (11) ; :NEXT 
:PRINT CHR$ (22) +CHR$ (0) :RETURN 

1800 LOCATE 2,12:PEN 3:PRINT" ":LO HA 
CATE 36,6:PRINT CHR$ (208) +CHR$ (209) 
:WINDOW#1, 15,25, 11, 14:PAPER#1,1:CLS 
#1:PEN#1,0:LOCATE#1,2,2:PRINT#1, "GA 

HE OVER" 

1810 RESTORE 1820:FO0R kk=1 TO 10:RE RW 
AD g,h:SOUND 1,425+(g#25),25#h,15,5 
:SOUND 1,0,2:NEXT 

1820 DATA 3,4,3,3,3,1,0,3,1,1,1,3,3 DNT 
51:3,3,4,1,3,4 

1830 FOR u=1 TO 200:NEXT )RE 
1840 HODE 1:1INK 0,0:PAPER 11:CLS:PE >QN 
N O:BORDER 11 

1850 IF sc>od AND sc(9999 THEN LOCA >NB 
TE 4,9:PRINT"Vous avez echoue a vot 

re aission":LOCATE 5,11:PRINT"Mais 

vous avez battu Dieu !!!":G0T0 1930 


1860 1F sc>9999 THEN LOCATE 13,7:PR >PZ 
INT'Magnifique !!!":LOCATE 2,9:PRIN 
T"Vous avez epuise toutes les resa 
urceg":LOCATE 15,11:PRINT"de Dieu! ! 
{":G0T0 1910 

1870 LOCATE 9,9:PRINT"Dieu vous a a )BF 
cheve !!!":LOCATE 9,11:PRINT"Vous e 

tes vraisent nul":G0TO 1930 

1880 INK 0,0:LOCATE 8,24:PRINT"Une HZ 
autre partie (0/N) ?° 


1890 a$=INKEYS:1F a$=""THEN 1890 EL >AC 

SE IF UPPER$(a$)="O"THEN RUN ELSE 1! 

F UPPER$(a$)="N°THEN END 

1900 GOTO 1890 )NF 

1910 LOCATE 20,13:ph$=CHR$ (160) :cu= >XH 

0:GO0SUB 1740:LOCATE 20,15:ph$=CHR$( 

143):cu=2:G0SUB 1740:LOCATE 18,17:p 

h#$=STRINGS(S, 143) :GOSUB 1740:LOCATE 

20,15:ph$="1":cu=0:GDSUB 1740:LOCA 

TE 18,17:ph$="2  3":G0SUB 1740 

1920 LOCATE 1,19:PRINT STRINGS (40,2 >RK 

07):GOT0 1880 

1930 LOCATE 16,15:ph$=CHR$(208)+CHR >JL 

$(209):cu=0:GO0SUB 1780:LOCATE 20,15 

:ph$=CHR$(160) :cu=2:G0SUB 1740:LOCA 

TE 1,17:PRINT STRING$(40,207) :PEN 0 

:GOTO 1880 

1940 ‘'##3 Regies du jeu ### )YG 

1950 MODE 2:1INK 0,24:INK 1,0:PEN 1: >HB 

PAPER O:BORDER 24:LOCATE 29, 1:PRINT 

“The way of the success" 

1960 PRINT:PRINT" Ce jeu est destin >CK 

e aux enfants de 8 a 12 ans.ll appa 

rtient a la categorie des educatif 

s (attendez, ne partez pas!!!). Vou 

s incarnez Stanley, un husain cosse 
vous et soi (en principe!!!)."; 

1970 PRINT" Vous avez pour mission AU 

de settre les nons au pluriel ou re 

prociquesent (pardon, reciproquesent 

nn), 

1980 PRINT" Dieu est tres severe. À >IN 

ussi, a chaque sauvaise reponse, c’ 

est la boucherie assu-ree (vous ver 


rez par la suite!!!). Par contre a 
chaque bonne reponse, vous ga-gnez 
des points." 
1990 PRINT" Le sarquage des points IR 
se fait en fonction de votre parcou 
rs; de s'explique !!'Quand Stanley 
est dans l'eau, si vous appuyez sur 
<ESPACE), il nagera. Ainsi si votr 
e reponse est bonne, vous sarquerez 
10 points. Si elle est fausse, Die 
u"; 
2000 PRINT"sarquera 20 points (eh o >VY 
ui!!1)." 
2010 PRINT"Quand Stanley est dans | >GD 
eau, si vous n'appuyez pas sur (ES 
PACE), il ne nagera pas(encore log 
ique!!!).Ainsi si votre reponse est 
bonne, vous sarquerez 5 points.Si e 
lle est fausse, Dieu sarquera 10 po 
ints (quelle injustice!!!)" 
2020 PRINT"Dieu vous accorde 3 vies >KC 
(on s'en contente largesent!!!)." 
2030 PRINT" Les grandes personnes ( >VF 
cosse 01) peuvent jouer a ce jeu a 
condition de sodi-fier les DATAS 
a partir de la ligne 1030. 119 y a 
ettront les noss adaptes a leur niv 
eau." 
2040 PRINT" C'est dans les vieilles >WN 
saraittes que l'on fait les seille 
ures soupes (Certainsse cosprendron 
t)." 
2050 LOCATE 32,24:PRINT"BONNE CHANC >HP 
E !!!":CALL &BB18:G0T0 1460 
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Boss or 
CHICAGO 


Des tueurs sont à vos trousses. 
Quelle erreur d’avoir voulu 
détrôner le Boss de Chicago ! 
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X LIN NI 
names 
Fa AY VAS FAN Pa 





T apez ce programme et préparez- 
vous à affronter des assassins sans 
pitié sur 6 tableaux différents. Vous pour- 
rez alors rencontrer le Big Boss pour une 
ultime confrontation. 


Tout au long du jeu, une fenêtre en 

bas de l’écran vous indique le nombre 
d’ennemis restant à abattre. Pour chan- 
ger de niveau, le nombre de balles, de 
chargeurs et le temps en secondes qu’il 
vous reste à vivre, ainsi que le nombre 
de vies que vous possédez. 
Si vous êtres lâche, grincheux et pleur- 
nichard, en bref si vous présentez toutes 
les caractéristiques d’un tricheur profes- 
sionnel, éditez la ligne 600 et modifiez à 
votre guise les variables vie et level. 


Attention !!! L’usage du joystick est 
obligatoire. 





VIRE TETE ETES ETES >LA 
20 ‘#4 #t >LB 
30 "#1 BOSS OF CHICAGO ## >LC 
40 ‘#1 H >LD 
50 "## PAR F.BARNABE #4 LE 
60 *## # >LF 
HOME CTEFETEISTIIIT ES] >LG 
80 ’ >LH 
90 ‘ INITIALISATION )LJ 
100 ? >RB 
110 ON BREAK GOSUB 3280 >@P 


120 HODE 1:1NK 0,0:BORDER O:1NK 1,1 >Cu 
0 





130 SYHBOL AFTER 33 NC 
140 SYHBOL 230, 4FF, LO.LFF.LFF,&FF,& >LN 
FF, 4, LFF 

150 SYHBOL 231, LBD, LBD, LBD, &BD, BD, >NV 
&BD, &BD, &BD 

160 SYMBUL 232, LBD, BC, LBB, LB7,LAF, MF 
&9F, L40, L3F 

170 SYMBOL 233,480, L1D, LED, LF5,&FO, >MP 
LFD, 42, LFC 

180 SYMBOL 234, LFC, L2, &F9, LFS, LED, & MR 
DD, &3D, BD 

190 SYMBOL 235, L3F, 40, LOF, LAF, &B7, ND 
&BB, LBC, &BD 

200 SYMBOL 97,&FF,LFF,LFF, RFF, BFF,& >NB 
FF,LFF, LFF 

210 SYMBOL 98, LAA, &55, LAA, 255, BAA,& )LE 
55, LAA, 55 

220 SYMBOL 236,418, 442, 40, 4B1,481,& >JB 
0, L42, 418 

230 SYMBOL 237,418, 442, LB, &B9, &OD,& KI 
10, La2, 418 

240 SYMBOL 99,4F7,LB6, 455,40, &7F, LS >FU 
B, 455 

250 SYHBOL 100,LFE, LFE, LFE, LO, REF, & >HZ 
EF, LEF 

260 SYMBOL 101, LC7, LOT, RFF, &11,&11, DM] 
AFF, C7, LC7 

270 SYMBOL 102,40, 454, &7A,&7C, &7E, & >GF 
1C,L3E 

280 SYHBOL 103,LSF, LFF, L7F, LO, LAA,& LL 
55, LAA, 455 

290 SYHBOL 104,LE7, LC3, L99,L3C,L3C, DM 
299, C3, LE7 

300 SYHBOL 105,40, LFF, RFF, A2, 40, 40 )JE 
,LFF, LFF 

310 SYMBOL 106, 4F7, LFB, LFD, FE, LO,& >MC 
FE, LFE, LFE 

320 SYHBOL 107, LEO, LEE, LEE, LEE, LEE, >NH 
LEE, &EC, LEO 

330 SYMBOL 108,LFF,L7F,L3F,LIF,LF,& >HB 
7,3, 41 

340 SYMBOL 109,LFF, LFE, LFC, LFB, &FO, MB 
LEO, &CO, 480 

350 SYMBOL 110,LFE, LFE, LFE, LFE,LFE, )PC 
LFE, LFE, &FE 

360 SYMBOL 111,40,418,43C,&19,&7F,& )LN 
TE, LC, L3C 

370 SYMBOL 112,418,434,434, 134,434, DKD 
&3C, 40,83€ 

380 SYMBOL 113,40, &1F,&3F,&7D,&F9,& >LN 
BA, L8C, LFB 

390 SYMBOL 114,43, k1,k4, 43,270, LED, >FC 
45, L3E 

400 SYMBOL 115,8, LBO,L70,L94,L3C, >MD 
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&FO, 34, LEG6 

410 SYHBOL 116,L1E,467,L61,LF1,LE0, >LB 
&4A,&1A,416 

420 SYMBOL 117,LA,LAF,LAF,LAF,RG6F,& >MZ 
FE, &SE, &1E 

430 SYABOL 118,47,437,477,&7B,43C,k DHE 
F,L10, 49 

440 SYHBOL 119,460, LEO, LEC, LFC,&18, D 
&F0,410,410 

450 SYHBOL 120,LE,L7,85,k1B,k78,kF4 DJY 
LEE, LF6 

460 SYHBOL 121,LE0, CO, 478, k80,&5C, >MV 
&6F,477,L6F 

470 PEN 1:LOCATE 5,1:PRINT CHRS(235 >HH 
)+STRINGS (30, 230) +CHRS (234) 

480 LOCATE 5,2:PRINT CHR$(231)+"SC0 >NY 
RE: 0 "+CHRS(231)+"  ANSTAR & 

CPC “+CHR$ (231) 

490 LOCATE 5,3:PRINT CHR#(232)+STRI >BF 
NG$ (30,230) +CHR$ (233) 

500 FOR 1=4 TO 19:LOCATE 8,1:PRINT >DG 
CHR$ (231) :LOCATE 33, 1 :PRINT CHRS(23 
1):NEXT 

510 LOCATE 2,20:PRINT CHR$(235)+STR )CJ 
ING$ (36,230) +CHR$ (234) 

520 FOR 1:21 TO 24:LOCATE 2,1 :PRINT >EA 
CHR#(231):LOCATE 39, 1:PRINT CHR$(2 

31) :NEXT 

530 LOCATE 2,25:PRINT CHR$(232)+STR >CH 


ING$ (36,230) +CHR$ (233) 

540 VINDOW 83,3,38,21,24 )RJ 
550 GOSUB 2770 XH 
560 GOSUB 3170 >0D 
570 WINDOW #82,9,32,4,19:CLS #2:CLS CA 
#3 

580 LOCATE 13,2:PRINT"0 * WW 
590 CLEAR:O0N BREAK GOSUB 3280 Y16 
600 LEVEL=1:VIE=3 ) 


610 LOCATE 23,23:PRINT"TEMPS:":LOCA >GP 
TE 32,23:PRINT "VIE: "vie 


620 GOSUB 1520 >PH 
630 ! >RK 
640 ? DEPLACERENT VISEUR >TÀ 
650 ? TB 


660 PLOT -2,0,2:TAGOFF #1:PRINT #1, >PG 
CHRS(22)+CHR$ (1); :PRINT #1,CHRS (23) 
+CHRS (3): :TAG 81 

670 MOVE X,Y:PRINT #1,CHR#(236) : JAI 


680 J=J0Y(0) )EJ 
690 IF MORT=1 THEN 1400 1 
700 IF GANG=0 THEN 940 >P# 


710 IF (J AND 16)0 THEN J=J-16:1F DRT 
CHAR>-1 THEN 830 
720 IF J=0 THEN 670 >LZ 


730 PLOT -2,0,1:TAGOFF 81:PRINT #1, )J1 
CHR$ (23) +CHR$ (2) ; :TAG #1: MOVE X,Y:P 
RINT #i,"a"; 


740 IF J=1 THEN Y=Y+16 >PT 
150 1F J=2 THEN Y=Y-16 PI 
760 IF J=4 THEN 1=1-16 >PY 
770 IF J=8 THEN 1=Â+16 >PB 
780 IF J=5 THEN 1=1-16:Y=Y+16 )IV 
780 1F 3-6 THEN 1=X-16:Y=Y-16 12 
800 IF J=Q THEN 1=X+16:Y=Y+16 >P 
810 IF J=10 THEN 1=1+16:Y=Y-16 >IR 
820 GOTO 660 ZA 
630 ? >TB 
840 FIRE !!! )TC 
850 > 


860 MOVE X,Y:PRINT #1,CHR$(237);  DAZ 
870 ENV 1,30,0,1,127,-1,15:SOUND 12 >TD 
9,0,240,15,1,0,10 

880 IF TYPE=10 THEN 900 DL 
890 NUNI=HUNI-1:DI:LOCATE 3+MUNI,23 >LD 
PRINT" “:El:1F MUNI=0 THEN MUNI:=9: 
CHAR=CHAR-1:DI:LOCATE 14+CHAR,23:PR 
INT" ":EI:1F CHAR(>-1 THEN DI:LOCAT 

E 3,23:PRINT STRINGS(9, "p"):El 

900 IF TYPE=1 OR TYPE=3 THEN IF 1=G >TG 
1#16 OR 1=G1316-16 THEN IF Y=(-GY+2 
6)#16-18 OR Y=(-GY+26)#16-2 THEN 12 

80 

910 IF TYPE=2 THEN IF 1-=G1#16-16 AN )EA 
D Y=(-GY+26)316-2 THEN 1280 

920 IF TYPE=6 THEN IF 1=G116 OR 1= >BR 
GX#16-16 THEN IF Y=(-GY+26)#16-18 0 

R Y=(-GY+26)316-2 THEN 3020 


830 GOTO 730 >] 
940 ? >TD 
950 ? ICI LES BANDITS ARRIVENT TE 
960 ? >TF 
870 ON LEVEL GOSUB 1000, 1060, 1080,1 >P4 
160,1210,1250 

980 TEMPS=2:GANG=1 NT 


990 LOCATE 29,23:PRINT TEMPS:EVERY )EZ 

50,0 GOSUB 1490:G0T0 680 

1000 CHANCE=INT(RND#6)+1:1F CHANCE= >CR 

1 THEN LOCATE 13,12:PRINT "s°:G1=13 

:GY=12:TYPE=2: RETURN 

1010 IF CHANCE){ AND CHANCE(S THEN )ED 

1040 

1020 TYPE=1:CHANCE=INT(RNDA5)+1:RES >LQ 

TORE 1030:FOR 1=1 TO CHANCE:READ GX 

,GY:NEXT:LOCATE GX,GY:PRINT"rs":LOC 

ATE GA,GY+1:PRINT" tu" :RETURN 

1030 DATA 16,11,23,11,28,11,12,6,16 >B4 
6 

1040 TYPE=3:CHANCE=INT(RNDE7)+1:RES DLZ 











TORE 1050:FO0k i=1 T0 CHANCE:READ Gi 
+GY:NEXT:LOCATE GX, GY:PRINT"rs":LOC 

ATE G1,GY+1:PRINT" tu" :RETURN 

1050 DATA 21,5,22,5,23,5,24,5,28,5, >N4 
29,5,30,5,31,5 

1060 TYPE=1:CHANCE=INT(RND26)+1:RES >LA 
TORE 1070:FOR 1=1 TO CHANCE:READ GX 
,GY:NEXT:LOCATE GX,GY:PRINT"rs" :LOC 

ATE G1,GY+1:PRINT" tu" :RETURN 

1070 DATA 12,8,17,8,22,8,27,8,12,14 DFE 
27,14 

1080 CHANCE=INT(RND#2):1F CHANCE=1 TJ 
THEN 1090:ELSE 1130 

1090 CHANCE=INT(RND#13)+1:RESTORE 1 >HJ 
120:FO0R 1=1 TO CHANCE:READ GI,GY:NE 
IT:LOCATE GI,GY:PRINT"rs":LOCATE GX 
,GY+1:PRINT' tu" 

1100 IF CHANCE)2 THEN TYPE=-3:ELSE T )JC 
YPE=1 

1110 RETURN EG 
1120 DATA 12,6,12,13,17,17,18,17,19 >VQ 
,17,20,17,21,17,22,17,23,17,25,13,2 
8,13,29, 13,30, 13,31,13 

1130 TYPE=2:CHANCE=INT(RNDH15)+1:RE )QV 
STORE 1150 

1140 FOR 1=1 TO CHANCE:READ GI,GY:N DVA 
EXT:LOCATE GI,GY:PRINT"o" :RETURN 

1150 DATA 21,12,23,12,25,12,21,10,2 3WV 
3,10,25,10,27, 10,29, 10,31, 10,27,8,2 
9,6,31,8,27,6,29,6,31,6 

1160 TYPE=1:CHANCE=INT(RND=8)+1:RES >PD 
TORE 1200 

1170 FOR 1=1 TO CHANCE:READ G1,GY:N >GC 
EXT 

1180 LOCATE GX,GY:PRINT"rs":LOCATE »BA 


GX,GY+1:PRINT" tu" 

1190 RETURN FE 
1200 DATA 10,10,10,14,21,10,21,14,2 IL 
5,10,25,14,29, 10,29, 14 


1210 TYPE=2:CHANCE= INT (RNDA29)+1:RE >QZ 
STORE 1240 

1220 FOR 1=1 TO CHANCE:READ GL,GY:N >GY 
EXT 

1230 LOCATE GI,GY:PRINT"0":RETURN EU 
1240 DATA 10,6,10,8,10,10,10,13,10, >CG 
15,14,8,14,10,14,12, 14, 14,18, 7,18,9 
,18,11,18, 13,18, 15,20, 7,20,9, 20, 11, 
20,13,26, 14,29, 7,29,9, 29, 11, 29, 13,2 
9,15,31,7,31,9,31, 11,31, 13,34, 15 

1250 G-20:GY=12: TYPE=6:RETURN AI 
1260 * »1B 
1270 ? »IC 
1280 DI:LOCATE 1,1:PEN O:PRINT REMA CT 
IN(O):EL:PEN 1:ATUER=ATUER-1 : LOCATE 
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3+ATUER,21:PRINT" * 

1290 SCORE=SCORE+50:LOCATE 12,2:PRI >NC 
NT SCORE 

1300 GOSUB 1320:1F ATUER=0 THEN LEV )BE 
EL=LEVEL+{:G0SUB 1520 


1310 GOTO 650 >FB 
1320 ? LU 
1330 ’ LA ILS REPARTENT !!! )IK 
1340 ? YA 
1350 BORDER 6:GANG=0 >PA 


1360 1F TYPE=1 THEN LOCATE G1,GY:PR >UX 
INT'ff":LOCATE GX,GY+1:PRINT"1f":B0 
RDER O:RETURN 

1370 IF TYPE=3 THEN LOCATE GX,GY:PR >QX 
INT" “:LOCATE GI,GY+1:PRINT" *:B0 
RDER O:RETURN 

1380 1F TYPE=2 THEN LOCATE G1,GY:PR >FH 
INT®f":BORDER 0:RETURN 


1390 BORDER 0:RETURN 4H 
1400 )IH 
1410 ? MORT LU 
1420 ? >IK 


1430 HORT-O:ENV 1,30,0,1,127,-1,15: >1Q 
SOUND 129,0,240,15,1,0,10:FO0R 1=1 T 

0 2000:NEXT:G0SUB 1320 

1440 PLOT -2,1,1:PRINT CHR$(23)+CHR >HR 

$(2):HOVE x,y:PRINT #1,"a"; 

1450 PRINT CHR#(23)+CHR8(3) : INK 2,6 >ZC 
:IK 3,6:5-640:FO0R 1=350 TO 96 STEP 
-2:PLOT 128,1,2:DRAV 510, 1 :SOUND 2 
,5:1,5:S=S-5:NEXT 

1460 VIE=VIE-1:LOCATE 36,23:PRINT V >JQ 
IE:1F VIE=0 THEN LOCATE 16,11:PEN 0 
:PAPER 2:PRINT"GANE OVER" :PAPER 0:P 

EN 1:FOR 1=1 TO 3000:NEXT:GO0TO 550 

1470 PRINT CHR$(23)+CHR$(2):FOR 1=3 >HG 

50 TO 96 STEP -2:PLOT 128, 1,1:DRAU 

510, L:SOUND 2,5,1,5:S=S+5:NEXT : INK 

2,26:1NK 3,26:1=320:Y=206:G0T0 650 

1480 ? YF 
1490 TEMPS=TEMPS-1:LOCATE 29,23:PRI >QG 
NT TEMPS:1F TEMPS(=0 THEN LOCATE 1, 
1:PEN O:PRINT REMAIN(O):PEN 1:H0RT= 


1:RETURN 

1500 RETURN EX 
1510 END YF 
1520 ? YA 
1530 ‘ CHANGEMENT DE TABLEAU >TB 
1540 ? TC 


1550 IF LEVEL(1 OR LEVEL)6 THEN CLS >BD 
:SYNBOL AFTER 33:PRINT"LEVEL doit e 

tre cospr1s entre 1 et 6 inclus. 
..":END 

1560 IF LEVEL=1 THEN RESTORE 1710 DAY 


1570 IF LEVEL-2 THEN RESTORE 1870  DAH 
1580 IF LEVEL-3 THEM RESTORE 2070 DAC 
1590 1F LEVEL=4 THEN RESTORE 2250 DAE 
1600 1F LEVEL-5 THEN RESTORE 2430 AI 
1610 IF LEVEL-6 THEN RESTORE 2510 )AZ 
1620 LOCATE 3,21:PRINT STRING (36," DVE 
0") :CHAR=CHAR+5 : MUNI =9 : 1=320 : Y=206 

1630 LOCATE 14,23:PRINT STRINGS(CHA DBT 
R,"q"):LOCATE 3,23:PRINT STRINGS (9, 
“p') 

1640 ATUER=36:CLS 82:LOCATE 17,11:P >YG 
RINT "LEVEL'LEVEL 

1650 FOR 1=1 TO 1000:NEXT )TL 
1660 SOUND 129,426,60,14,2,3:SOUND )AQ 
2,213, 20, 14,2, 3:SOUND 2, 179, 20, 14,2 

3: SOUND 2,142, 20, 14,2,3 

1670 FOR 1=1 TO 1000:NEXT:CLS #2:F0 >DB 
R 1=4 TO 19:READ A$:LOCATE 9, 1:PRIN 

T AS:NEIT 


1680 RETURN )FJ 
1690 ? DE 
1700 ? >YA 
1710 DATA “aaaaaaaaaaak >EQ 
" 

1720 DATA "aaaffaaffaaf >EX 


1730 DATA "aeaftaaftaak cc >G1 


1740 DATA "anaffaaffaafdddddccddddd >NA 


1750 DATA “aaaiiaaiiaakdddddddddddd >PN 


1760 DATA "iiiiiiiiiiiiggsgescecece >QD 


1770 DATA “aaaaaaaaaaakbbbbbbbbbbbb >NN 


1760 DATA “aaabbbaffaafbbffbbbffbbb >NQ 


1790 DATA "aeabfbaffaakbbffbbbffbbb >NF 


1800 DATA “aaabbbaiiaafbbggbbbggbbb NU 
Li 


1810 DATA “aaabbbaaaeakbbbbbbbbbbbb >NQ 


1820 DATA “aaabbbaaaaafbbbbaaabbbbb >ND 


1830 DATA "ha ggg lhaakbbbbaaabbbbb >MJ 
L] 


1840 DATA "c ggggs caafbbbbaaabbbbb >HG 
e 


1850 DATA "cggggsggcaakbbbbaaabbbbb )>PA 
" 


1860 DATA “jjj5553)333335355353335 206 














1870 De 
1880 )K 
1890 DATA "dddddddddddddddddddddddd >PH 


1800 DATA "dddddddddddddddddddddddd >PD 


1910 DATA "iiiiiiiiiiiiiiiiiiiiiiii >QB 


1920 DATA “anaaananasaaaaaneaaaaana >NQ 


1930 DATA "aaaffaaafftanaffanaffaaaa >NF 


1940 DATA "aeaftaaaffanaffanaffaaaa >NL 


1950 DATA "anaiiaaaiiaaaiianaiianan >PA 
L] 
1960 DATA "aaaaaaaaaaanaganaaagaaaa >NQ 
L] 


1970 DATA "iiiiiiiiiiitiiiiiiiiiiii >QH 


1960 DATA "anaaaaaaaaaaaaaaaaasaaaa DNT 


1890 DATA “anaftaaaafgfgtannaffaaaa DNV 


2000 DATA "“aaaffaaaakbbbkaaaaffaaaa DNI 


2010 DATA “aaaiiaeaafbbbtaaaaiiaaaa >NE 


2020 DATA "aaaaaaaaakbbbkaaaasaaasa DNC 


2030 DAŸA “aaaaaaaaafbbbfaaaaaagaaa DNT 


2040 DATA "j51)5533333331153354334 >QX 


2050 ? )AK 
2060 ? >YA 
2070 DATA “dddddddkbbbbbbbbbbbbbbbb >NJ 


2080 DATA “dddddddkbbbbbbbb HE 
Li] 
2090 DATA “dddffddkbbbbbbbb f f f 2>Ku 
Li 
2100 DATA “dddf fddkbbbbbbbb )HB 
" 
2110 DATA "dddggddkbbbbbbbb ft f f >KQ 
L} 
2120 DATA “iiiiiiiibbb )EC 
L) 
2130 DATA * bbbt ff tff )CT 
[1 
2140 DATA "ddddddddbbb )EL 
L] 
2150 DATA "ddddddddbbb t 1 f >6Y 








2160 DATA "dddf f dddbbb )ET 


2170 DATA "dddf fddd Cu 


2180 DATA "“dddggddd nn nnnnn )HZ 
Li 


2190 DATA "dddddddd nninnnnn )JP 


2200 DATA “dddddddd 


nn nnnnn >HK 


2210 DATA "dddddddd nn nnnnn )HL 


L] 
2220 DATA "ddddddddddddddddnndnnnnn >PA 
L] 
22% >IK 
220 >YA 
2250 DATA “laa laa laa laa laa HA 
. 


2260 DATA " la la la la la )DH 


2270 DATA "iii1iiiiiiiiiiiiiiiiiiii >QB 
Li 
2280 DATA “kkkkkkkkkkkkkkkkkkkkkkkk QE 
e. 


2280 DATA "iiiiiiiiiiiiiiiiiiiaitiä >QD 


2300 DATA "dddddddddddddddddddddddd >NG 


2310 DATA “dt fdddddddddf fddf fddt fdd >PR 
" 


2320 DATA “dffdddddddddt tddffddtfdd >PT 


2330 DATA "diidaaaaaandiiddiiddiidd >PL 


2340 DATA "ddddaVOTEZnddddddddddddd >NU 


2350 DATA "dffdaaaaaandf tddffddtfdd >PH 


2360 DATA “dffdaaCPCandt fddfftddtfdd >NN 


2370 DATA “diidaaaaaandiiddiiddiidd >PQ 


2380 DATA “ddddaaaaaanddddäddäddddddd >NG 


2390 DATA “dddddddddddddddddddddddd >PH 


2400 DATA "jjj15534411153134911154 >QX 


2410 ? ik 
2420 > TA 
2430 DATA * NB 
L} 


2440 DATA "aaaa bbbbb aa aaasa DHT 


2450 DATA "ataa aaasa HZ 


2460 DATA “aaanaaa bfbfb aa 


bbbbb aa 
afata >JF 


2470 DATA ‘"afanafa bbbbb aa 


2480 DATA "aaanaaa bfbfbanaa 


2490 DATA "afanafa bbbbbanaa 


2500 DATA "aaanaaa bfbfbanaa 
LI 


aaaaa )KQ 
afafa )LX 
aaaaa )LP 
afafa LP 


2510 DATA “bbbnafa bbbbbanaa 


2520 DATA "bfbnaaa bfbfbanabbbafafa >NB 


2530 DATA "bbbnafa bbbbbanabfbaaaaa >NN 


2540 DATA “bfbnaanabfbfbanabbbafafa >PE 


2550 DATA "EGGRRGEREGERRG ELEC ER EEE PJ 


2560 DATA "bbbbbbbbnnnnnnnnnnnnnnnn >QE 
L] 


aaaaa )LE 


2570 DATA "bbbbbbnnnnnnnnnnnnnnnnnn QG 


2580 DATA "“bbbnnnnnnnnnnnnnnnnnnnnn >RN 
" 

2590 Dé 
2600 )YA 
2610 DATA “aaaanddddddddddddddaaasa NT 


2620 DATA “aaaanddddddddddddddaaaaa >NU 


2630 DATA "aaaanddddddddddddddaaaaa >NV 


2640 DATA “aaaanddddddddddddddaanas >4 


2650 DATA "aasanddddddddddddddaaaaa NI 


2660 DATA "aaaanddddddaanaaa daaaaa )NU 


2670 DATA "aaaanddddddaanaaa daaaaa DV 


2680 DATA "aaaanddddds 


2690 DATA "aaaanddddd vu aaa daaaaa DU 


2700 DATA "aaaanddddd xy aaa daaasa MP 


2710 DATA “aaaanddiiiiiiiiia daaaaa >NQ 


laaa daaaaa DLE 


_ 2720 DATA “aaaas aaaaaaaaa laasa >KH 











2730 DATA "aaas  aaaaaaaaa laaa 
L] 

2740 DATA "ass k k laa 
" 

2750 DATA "as la 
" 

2760 DATA "sa 1 
" 

2770 ? 

2780 ' TITRE 

2790 

2800 CLS 83:RESTORE 2860 


2810 FOR 1=4 TO 19:READ A$:LOCATE 9 
+ L:PRINT AS:NEXT 

2820 LOCATE 20,11:PAPER 1:PEN O:PRI 
NT"0F":PAPER O:PEN 1 

2830 CLS #3:LOCATE 11,23:PRINT" °ESP 
ACES POUR JOUER" 

2840 INK 2,26:1NK 3,26 

2850 RESTORE 3230 :RETURN 

2860 DATA "dddddddddddddddddddddddd 


2870 DATA "“dddddddddddddddddddddddd 


2880 DATA “ddd dd 


2890 DATA "ddd c cd € cd cecd cecdd 


2900 DATA “ddd 


2910 DATA "ddd c cd c cdde cddc cdd 


2920 DATA “ddd cd 


2930 DATA "ddddcecddcccddcccddeccdd 


2940 DATA * 


2950 DATA " cc 


2960 DATA ® cd c c c cd 


2970 DATA * 


2980 DATA "dccdcdcdcdcedcdcdcccdecc 


2990 DATA "dddddddddddddddddddddddd 


3000 DATA “dddddddddddddddddddddddd 


3010 DATA "j551413311455154154941 


dd dd  ddd 


cd c cd dd  ddd 


cd cd cdd 


dddd d d d 


C C CC C C CCC cc 


c c d cd 


decc dec c 


3020 ! 
3030 ’ GAGNER !!! 
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)JB 
)@ 
)2N 
»G 
TJ 
>K 
)ZA 
>RC 
1 
>ZK 
>1B 


>P# 
>UG 


IH 
)L 








3040 ? )IK 
3050 DI:LOCATE 1,1:PEN O:PRINT REMA >TP 
INCO):PEN 1:El 

3060 SCORE=SCORE+500:LOCATE 12,2:PR >PN 
INT SCORE 

3070 SPEED INK 1,1:BORDER 0,6:F0R 1 >TB 
=1 TO 3000:NEIT 

3080 BORDER O:CLS #2:PEN 2:LOCATE 1 >AD 
0,10:PRINT"VOUS AVEZ TUE LE BOSS. *: 
LOCATE 14,12:PRINT"FELICITATIONS" 

3080 FOR 1=1 TO 3000:NEXT TN 
3100 CLS #2:LOCATE 12,10:PRINT"HAIS NM 
OSERIEZ VOUS" :LOCATE 15,12:PRINT"L 

E REFAIRE" 

3110 FOR 1=1 TO 3000:NEXT >TF 
3120 CLS #2:LOCATE 11,10:PRINT"ET C )CH 
EST REPARTI ...":PEN 1 

3130 FOR 1=1 TO 3000:NEXT >TH 
3140 GANG=0:LEVEL=1:CHAR=0:GUSUB 15 >QP 
30:G0T0 640 

3150 GANG=0:LEVEL=1:CHAR=0:GOSUB 15 >0Q 
30:G0T0 640 


3160 ’ »C 
3170 * MUSIQUE >YD 
3180 )YE 


3190 IF SON-57 THEN SON-0:RESTORE 3 )FF 
230 

3200 SON=SON+1:READ S,D:A$="":A$=IN >GP 
KEYS:1F A$=" * THEN RETURN 

3210 SOUND 6,522,D#40,15,2,3:SOUND UV 
2,5+S,D420,5,4,0:SOUND 1,200, D25,4, 

2,3 

3220 GOTO 3190 MH 
3230 DATA 239,1,253,0.5,284,0.5,319 DIF 
1,358, 1,379,1,426, 1,478,0.5,319,0. 
5,284,1.5,284,0.5,253,1.5,253,0.5,2 

39, 1.5, 239,0.5, 239, 0.5, 253,0.5, 284, 
0.5,319,0.5,319, 0.75, 358, 0. 25, 379,0 
.5,239,0.5, 239,0.5, 253, 0.5, 284,0.5, 
319,0.5 

3240 "DATA 213,0.5,179,0.5,142,0.5, >YB 
190,0.5,179,0.5,213,0.5,478,0.5 

3250 DATA 319,0. 75,358,0.25,379,0.5 )JX 
,379,0.5,379,0.5,379,0.5,379,0.5,37 
9,0.5,358, 0.25 

3260 DATA 319,1.5,358,0.25,379,0.5, DUB 
426,0.5,426,0.5,426,0.5,426, 0.5, 379 
,0.25 

3270 DATA 358,1.5,379,0.5,426,0.25, AJ 
478,0.5,239, 1, 284, 0.5, 319,0. 75,358, 
0.25, 379,0. 25, 358,0. 25,379, 1,426, 1, 


478,1 
3280 > YF 
3290 SYMBOL AFTER 33:END TU 


Musrupio 


Il s’agit d’un programme 
musical, ce qui est déjà 
intéressant en soi. 

Ce qui l’est encore plus, c’est 
qu’il est destiné à des néophytes 
en informatique doublés 
d’ignares en musique. J’ai donc 
rendu MUSTUDIO (pour 
«MUSique sTUdio», en toute 
simplicité !) particulièrement 
SIMPLE et FACILE à utiliser. 


Jean-Manuel MARIES 


oncrètement, il permet d’écrire 

(entre autres) un morceau de mu- 
sique sur 4 octaves, 1 voie avec un maxi- 
mum de 999 notes. 

Dans le détail : 

Après un RUN»M, l'écran se présente 
divisé en 3 parties principales : 

— En haut, la partition (70 notes à la fois) 
— En bas à gauche, le tableau de saisie et 
de lecture des notes. 

— En bas à droite, la fenêtre des options. 
Sur ces portées, les notes s’inscrivent au 
fur et à mesure de leur saisie. Elles doi- 
vent être affichées pour pouvoir être 
modifiées. 

Le tableau de Saisie/Lecture affiche 
en permanence les renseignements sur la 
note courante : 

Gamme (de 1 à 4) 

Note (do, dot,.…., la#, si) 

Durée (0,..., , ,... ,pointée ou pas) 
Numéro 

Ktest une constante de temps (tempo). 

Juste sous le tableau, les touches à 
utiliser sont indiquées avec au-dessus, les 
effets correspondants. Par exemple : 

— pour changer la gamme (- ou +), il faut 
utiliser les touches «/» et «\». 

— pour se déplacer sur la partition, il faut 
utiliser les touches du curseur («et 
«—>»). On ne peut pas aller au-delà de la 
dernière note. 

Pour choisir une durée correspondant 
0, , , , ou, il faut appuyer 
respectivement sur «Z»,«X»,«C»,«V», 
»B» ou «N». 


UTILITAIRE 


Valable pour 
O CPC 464 
æ CPC 664 
CPC 6128 





A 





Pour valider une note, il faut appuyer 
sur <RETURN> 

Il y a encore 2 touches utiles : 

— le point «.» qui permet de pointer/dé- 
pointer une note. 

— la touche «]}» dont le symbole rappelle 
le silence, et qui permet de transformer 
«Oo » en « » 

Pour revenir aux notes, il suffit de 
presser une touche correspondant à 
«Note» (A,W,...) 

La disposition des touches À, W.... 
n’a pas été choisie par hasard : elle sug- 
gère un clavier de piano (!). 

Enfin, encore une astuce : au cas où 
les durées «Standard» ne vous convien- 
draient pas, vous pouvez en donner de 
différentes, ponctuellement, en tapant di- 
rectement les chiffres. 


-* Les options 

Vous étiez déjà étonné, vous n’avez 
pas tout vu. (Toute modestie mise à part). 
On choisit les options avec les touches 
verticales du curseur, on valide avec la 
barre d’espace. 
On peut se servir de toutes les options 
(sauf CATALOGUE) en donnant une ré- 
ponse «chaîne vide» ou «0» lorsqu'un 
nombre ou un nom (de fichier) est de- 
mandé. 
Lors de la saisie de nombres ou de noms, 
on ne peut pas corriger une erreur en ef- 
façant le dernier caractère introduit : il 
faut procéder par défilement. On retape 
la valeur correcte, le «rab» disparaît à 
gauche. (Faites-le, c’est classieux). 


* Aller sur une note 

On ne peut travailler (modifier) que 
sur les 70 notes affichées. Cette option 
permet de «changer» de bloc. 
Par exemple : les notes affichées sont les 
notes n°* 1 à 76 (bizarrerie : elles sont 
dans l’ordre : 70, 1, 2,... 69). 
Si vous faites : aller à la note 80, les 
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nouvelles notes affichées sont les n°° 71 
à 140, et le curseur («T») est sous la note 
80. (Il est invisible, pour le faire appa- 
raître, il suffit de le déplacer). 


- Afficher Partition 

La première note de l’écran (ou pres- 
que, cf. «Bizarrerie») est un multiple de 
70 (son numéro). Ceci est dû à une ges- 
tion particulière de l’affichage. 
Donc, même si vous tapez «...à partir 
de la note n° 160», ce sera à partir de la 
note 140 (ah ! mais !). 


- Effacer des notes 

On peut effacer des notes de À à B 
compris. Ceci entraîne un déplacement : 
la note B+1 vient en À, etc. 


CES OCMN EE 


* Insérer des vides 

On peut insérer N vides à la position 
P, la note P se trouve donc déplacée en 
P+N 


Après | P-1 |{...N...}| "P" 


+ Copier une séquence 

On peut copier les notes n°’ A à B 
inclus à la position P (incluse). 
Il faut donc insérer des blancs avant cette 
opération si on ne veut pas écraser les 
notes P et suivantes. 


+ Modifier Kt 

Pour modifier le tempo, donner sa va- 
leur en dixième. Pour avoir Kt= 2.5, taper 
25. 


* Jouer un morceau 

Il faut l’avoir chargé avant car il n’y 
en a qu’un en mémoire à un moment don- 
né. On peut jouer d’une note À à une note 


B (incluses). Pour interrompre l’exécu- 
tion, il suffit de presser n’importe quelle 
touche. 

Remarque : Dans EFFACER et JOUER, 
on peut dépasser le nombre de notes en 
mémoire. Par exemple, pour jouer (ou 
effacer) l’ensemble d’un morceau, on peut 
donner comme valeurs de 1 à 999, 


+ Charger/Sauvegarder un morceau 

L'extension «.MUS» est automatique- 
ment ajoutée au nom donné. 
Avant un changement, consultez par 
précaution le catalogue de la disquette, 
le programme ne gère pas les erreurs, il 
vous faudrait relancer le programme après 
une réinitialisation (à cause des «sym- 
bol...»). 
Point important : le morceau est sauve- 
gardé sous la forme : Kt, Période, Du- 
rée, Période, Durée... ce qui rend le fi- 
chier très facilement récupérable par un 
autre programme (jeu, présentation, …). 
De la même façon, un fichier qui aurait 
cette structure pourrait être envoyé à 
MUSTUDIO qui se charge de reconnaî- 
tre les notes d’après la période et la du- 
rée (pourvu que les gammes soient com- 
patibles). 


100 SYMBOL AFTER 160 >PQ 
110 OPENOUT “bidon":MEMORY HIHEM-1: >RZ 
CLOSEOUT 

120 SYHBOL 160,0,0,0,255,0,0,0,0  2YC 
130 SYHBOL 161,0,0,0,255,0,0,0,255 DAC 
140 SYMBOL 162,0,0,0,120, 132, 132,13 )FU 
2,120 

150 SYHBOL 163,4,4,4,124,132, 132,13 DFN 
2,120 

160 SYHBOL 164,4,4,4,124,252, 252,25 DFA 
2,120 

170 SYMBOL 165,7,4,4,124,252, 252,25 DFF 
2,120 

180 SYHBOL 166,7,4,7,124, 252, 252,25 DFL 
2,120 

190 SYMBOL 167,7,4,7,124,255,252,25 FR 
2,120 

200 SYHBOL 168,0,0,0,0,0,126,126,25 >BX 
5 

210 SYHBOL 169,0,0,0,255,126,126,0, >BP 
0 

220 SYHBOL 170,56,8,12,4,4,4,62,96  DAN 
230 SYMBOL 171,127,1,2,2,4,4,8,8  DYL 
240 SYHBOL 172,127,1,62,2,4,4,8,8  )2Z 
250 SYHBOL 173,127,1,62,2,60,4,8,8 AJ 
. 260 ? DR] 
270 DEFINT a-z WF 














280 DIM nom$(12),ht(12),des$(6),ble 
$(6) ,per(48),FP(1000),FD(1000).op$( 
10) 
290 FOR touche=0 TO 12:READ noaf$(to 
uche),ht (touche) :NEXT 
300 DATA "6..8",5,"Do",1, "Do #",1," 
Re°,2,"Re #",2,"Hi",3 
310 DATA "Fa",4,"Fa #",4,"Sol",5,°S 
ol #",5,"La",6,"La 8°,6,"51%,7 
320 FOR duree=1 TO 6:des$ (duree) =CH 
R$(161+duree) 
330 bic$(duree)=CHR$(167+duree) :NEX 
T 
340 FOR i=1 TO 48:READ per(i):NEXT 
350 DATA 956,902,851,804, 758, 716,67 
6,638,602, 568, 536,506 
360 DATA 478,451,426,402,379,358,33 
8,319,301, 284, 268, 253 
370 DATA 239,225,213,201,190,179,16 
9,159, 150, 142,134,127 
380 DATA 119,113,106,100,95,89,84,8 
0,75,71,67,63 
390 nop=10:FOR op=i TO nop:READ op$ 
(op) :NEXT 
400 DATA "ALLER SUR UNE NOTE" 
. "AFFICHER PARTITION", "EFFACER 

DES NOTES", " INSERER DES VIDE 
S", "COPIER UNE SEQUENCE" 
410 DATA "HODIFIER  KT*,"JOUER 

UN HORCEAU", "CHARGER UN HOR 

CEAU", "SAUVEGARDER UN MORCEAU", "CAT 
ALOGUE  DISQUETTE" 
420 ? 
430 z$=CHR$(8)+CHR$(10) 
440 vport$=CHR$(161)+z$+CHR$ (161 )+z 
$+CHR$(160)+z$+" "+z$+CHRS(161)+z$+ 
CHRS(161)+z$+" "+2$+CHR$(161)+z$+CH 
R$(161)+z$+CHR$(160) 
450 curh$=CHR$(242)+CHR$ (243) :curv$ 
=CHR$ (240) +CHR$ (241) 
460 desgan$=CHR$ (162) +CHR$ (163) +CHR 
$(164)+CHR$ (165) +CHR$ (166) +CHR$ (167 
) 
470 desblcs$=CHR$ (168) +CHR$(169)+CH 
R#(170)+CHR$(171)+CHR$(172)+CHR$ (17 
3) 
480 esx$=CHR$ (24) 
490 ? 
500 HODE 2:BORDER 13 
510 WINDOW #1,1,40,13,20:WINDOW #2, 
1,80,1,12:PEN #2,0:PAPER #2,1:WINDO 
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; W 44,1,40,21,25:PEN #4,0:PAPER #4,1 


:GOSUB 3690 

520 WINDOW #3,41,80,13,25:WINDOW SW DHL 

AP 0,3 

530 GRAPHICS PAPER 1:GRAPHICS PEN O DEA 

‘1 

540 CLS#2:FOR i-6 TO 75:LOCATE 82,i )DL 

+2:PRINT#2, vport$:NEXT 

550 GOSUB 2600:G0SUB 3260 ’Initiali TE 

sation fenetres #1 et #3 

560 Ga=2:Nn=0:No=1:Nt=1:Dn=1:kt!=2. FF 

5 

570 LOCATE #1,31,4:PRINT#1,RIGHT$(" >4D 
"+STR$(Kt!),4) 

580 GOSUB 2730:GO0SUB 2770:GOSUB 282 >CK 

0:GOSUB 2880:G0SUB 3010 

S90 'HHHAMEMENNUNNNNENNNENNNENNNEEE TE 

CTPFETEEFFEESE 

600 ’ Boucle de Saisie RG 


620 k$=INKEY3:1F k$="" THEN 620 ELS >RY 
E k$=UPPER$(k$) 

630 k=INSTR("AUSEDFTGYHUJ",k$):1F k >RA 
(0 THEN 760 " NM Note 

640 k=INSTR("ZACVBN",k$):1F kC)0 TH >JF 


EN 800 " Duree 

650 IF k$="." THEN 840 >NG 
" Pointee 

660 IF k$="/" OR k$="c" THEN 880 >WG 
" Game 

670 IF k$="8" THEN 940 >PC 
* Blanc 


680 k=INSTR("1234567890",k$):1F kC> >LH 
0 THEN 980 " Duree Speciale 


690 1F k$-CHR#(13) THEN 1070 >UY 
* Validation No 

te 

700 k=INSTR(curh$,k$):1F k<>0 THEN FH 

1150 "  Deplacesent 


710 k=INSTR(curv$+" ",k$):1F kCO T KL 
HEN 1230 " Options 
720 PRINT CHR$(7):G0T0 620 >UH 


[K'OMELTEETTEETETETTTETENPETETET TETE 
CLEFS PTE | 

740 * N#t Note >TB 
190 FRS sssseeee TES )TC 
760 nt=k;GOSUB 2770:G0SUB 2880:LOCA >VC 
TE #1,16,6:PRINT#1, desgant:GOTO 620 


770 ?-------------- )TE 
780 ’ Duree )TF 
790 *---------- >TG 


800 Dn=k:GOSUB 2820:G0SUB 2880:G0T0 >GJ 


620 

810 "-------------- >RK 
820 * Pointee >TA 
830 *------------------- TB 
840 pt=NOT(pt):GOSUB 2820:G0T0 620 CG 
850 *------------------- >TD 
660 ’ Ganse )TE 
870 "----------------- TE 


880 IF k9="/* THEN Ga=Gn-i:1F Gs=0 >KH 
THEN Ga=4 
890 IF k$="c" THEN Ga=Gat1:1F Gn=S >KH 
THEN Ga=1 
900 GOSUB 2730:G0SUB 2880:G0T0 620 >BZ 


910 ----------------- DTA 
920 ’ Blanc >TB 
930 ?----------------- >TC 


940 nt=0:GOSUB 2770:G0SUB 2880:LOCA >IT 
TE #1,16,6:PRINT#1, desblcs$:G0TO 62 


950 ?-------------------- )TE 
960 ‘ Duree Speciale >TF 
970 -------------------- >TG 


980 2d$="00"+k$:0k=-1:LOCATE 81,17, BB 
A: PRINT 1, 2d$ 

800 VHILE ok >GH 
1000 k$=INKEYS:1F k$="" THEN 1000 >ZM 


1010 IF INSTR("0123456789",k$)=0 VU 
THEN ok=0:GO0T0 1030 

1020 zd$=RIGHT$(zd$+k$,3):Dn=-VAL >QU 
(zd#):LOCATE #1,17,4:PRINTÉ1, zd$ 


1030 WEND:GO0TO 620 >HD 
1040 *-------------------- )XH 
1050 ’ Validation Note )1 
1060 *-------"""" >IK 


1070 FP(No)=-(Nt{>0)#per((Gn-1)412+ >YP 
Nt):1F Dn>0 THEN FD(No)=(1-pt/2)#2" 
(6-Dn) ELSE FD(No)=Dn 

1080 No=No+i:1F No>NN THEN NN=No AL 


1090 1F No MOD 70=0 THEN FOR i=6 TO >UL 
75:LOCATE #2,i,2:PRINT#2, vport$:NE 

XT 

1100 GOSUB 3010:LOCATE #1,16,6:PRIN >YG 

Thi,desgan$:1F FD(No)=0 THEN GOSUB 


2880 

1110 GOTO 620 EG 
1120 *-------------------- >1G 
1130  Deplacesent )IH 
1140 ?----- Del 
1150 IF k=2 THEN 11680 >NZ 


1160 IF (No MOD 70)=1 THEN PRINT >BK 

CHR$(7)+CHR$ (8) ; :GOTO 620 

1170 No=No-1:G0SUB 3010:G0T0 620 AL 
1180 IF (No NOD 70)=0 OR No>NN THEN )LR 
PRINT CHR$(7)+CHR#(8)::G0TO 620 





1190 No=No+1:GDSUB 3010:G0T0 620 )AL 


1200 "HHBNNESNNNENNNENNNENNNNENNEES DXF 


1210 ? Options )XG 
1220 ?------------""""" >IH 
1230 IF k>1 THEN 1260 NX 


1240  LOCATE 1,2+op:PRINT op#(op): >HG 
op=op-1:1F op=0 THEN op=nop 

1250  LOCATE 1,2+op:PRINT esx$:0op$ >XY 
(op) ;esx$:G0T0 620 

1260 IF k=3 THEN 1290 NE 
1270  LOCATE 1,2+op:PRINT op$(op): >HF 
op=opti:1F op>nop THEN op-1 

1280  LOCATE 1,2+op:PRINT esx$:op$ >1B 
(op) :esx$:GO0TO 620 

1290 ON op GOSUB 1340,1430,1510,169 JT 
0,1860, 2050, 2420, 2250, 2130, 2360 


1300 GOSUB 3260:G0T0 620 >RA 
1310 *------------------ >IH 
1320 * Aller sur une note )1] 
1330 "---------------------""."" )K 
1340 CLS >ZH 


1350 PRINT esx$;"Aller sur une note >AY 
":e5x9$:PRINT 

1360 PRINT"II y a ":NN:" Notes." >DD 
1370 GOSUB 3420 )1C 
1380 IF INT(z/70)=INT(No/70) THEN N >CD 
o=z:G0SUB 3010:RETURN 

1390 za=INT(z/70)#70:No=z:G0SUB 333 >NK 
O:RETURN 


1400 -----"" D 1 
1410 * AFFicher la partition D t| 
1420 >K 


1430 CLS:PRINT esx$;"Afficher la pa >KU 
rtition";esx$:PRINT 

1440 PRINT"II y a ":NN:" Notes." >DC 
1450 PRINT:PRINT'"Afficher a partir )GZ 
de la note No:” 

1460 GOSUB 3420:1F z=0 THEN RETURN )>BM 
1470 za=70#INT((z-1)/70)+1:No=za:G0 >JN 
SUB 3330:G0SUB 3010:RETURN 


1480 *------------------.----- D YF 
1490 ’ Effacer des notes >YG 
1500 *------------------ 1) 
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1510 CLS:PRINT esx$:"Effacer des no >DZ 
tes" :e919:PRINT 

1520 PRINT"II y a ":NN:" Notes.":LO CU 
CATE 2,13:PRINT" (000) Pour sortir." 


1530 LOCATE 1,5:PRINT"A partir de 1 >GL 
a note :":GOSUB 3420 

1540 LOCATE 23,5:PRINT z$:za=2:1F z >PY 
=0 THEN 1650 

1550 LOCATE 1,6:PRINT'"Jusqu'a la no )EC 
te :*:G0SUB 3420 

1560 LOCATE 23,6:PRINT z$:2b=z:1F z >PA 
=0 THEN 1650 

1570 IF za>zb THEN z=za:za=zb:zb=z DDF 


1580 ? »YG 
1590 zc=zb-zat1 >GJ 
1600 FOR zi=za TO NN )NZ 
1610 IF zi+2cNN THEN zfp=0:zfd=0 >TY 
ELSE zfp=FP(zitzc):zfd=FD(zi+zc) 

1620 FP(zi)=zfp:FD(zi)=zfd >XP 
1630 NEIT >LB 
1640 NN=NN-zc JUE 
1650 RETURN >FF 
1660 ?---------------- )TF 
1670 * Inserer des vides »YG 
1680 ?------------" >YH 


1690 CLS:PRINT esx$:" inserer des vi >DR 
des*:e9x$:PRINT 

1700 PRINT"I1 y a ":NN:" Notes.":LO CU 
CATE 2,13:PRINT" (000) Pour sortir." 


1710 LOCATE 1,5:PRINT"A partir de 1 >GL 
a note :":GOSUB 3420 

1720 LOCATE 23,5:PRINT z$:2a=z:1F z >PV 
=0 THEN 1820 

1730 LOCATE 1,6:PRINT"Vides a inser DEF 
er :*:GOSUB 3420 

1740 LOCATE 23,6:PRINT z$:z2c=z:1F z >PA 
=0 THEN 1820 

1750 IF za+zc)999 THEN PRINT CHR#(7 >ZF 
)+CHR$(8) : :GOTO 1820 

1760 »YG 
1770 NN=NN+zc >UG 
1780 FOR zi=NN TO za+zc STEP -1 )YX 
1790 FP(zi)=FP(zi-zc):FD(zi)=FD(z >JB 
i-zc) 

1800 NEXT >LA 
1810 FOR zi=za TO zatzc-1:FP(zi)=0: >UU 
FD(zi)=0:NEXT 


1820 RETURN FE 
1830 == ss FRÉRSRERSR )YE 
1840 * Copier une sequence >ŸF 
OS NME SERRES RE SRE RSS ENG 


1860 CLS:PRINT esx$;"Copier une seq 
uence":e9x$:PRINT 

1870 PRINT'"II y a ":NN;" Notes.":LO 
CATE 2,13:PRINT"(000) Pour sortir." 


1880 LOCATE 1,5:PRINT"A partir de | 

a note :":G0SUB 3420 

1890 LOCATE 23,5:PRINT z$:za=z:1F z 

=0 THEN 2010 

1900 LOCATE 1,6:PRINT"Jusqu'a la no 

te :":GO0SUB 3420 

1910 LOCATE 23,6:PRINT z$:zb=z:1F z 

=0 THEN 2010 

1920 LOCATE 1,7:PRINT"A la position 
:*:GOSUB 3420 

1930 LOCATE 23,7:PRINT z$:zc=z:1F z 

=Q THEN 2010 

1940 IF za>zb THEN z=za:za=zb:zb-2 

1950 IF zc<=zb OR zctzb-za)999 THEN 

PRINT CHR$(7)+CHR$(8) ; :GOTO 2010 


1960 

1970 NN=NN+zb-zat1 

1980 FOR zi=za TO zb 

1990 FP(zctzi-za)=FP(zi):FD(zc+zi 
-za)=FD(zi) 

2000 NEIT 

2010 RETURN 


2050 CLS:PRINT esx$:"Modifier Kt "; 
esx$:PRINT 

2060 LOCATE 1,5:PRINT'Nouvelle vale 
ur (x10) :":GOSUB 3420 

2070 LOCATE 25,5:PRINT z$:1F z=0 TH 
EN 2090 

2080 kt!=z/10:LOCATE #1,31,4:PRINTE 
1,RIGHT$("  "+STRS(Kt!),4) 

2090 RETURN 


2130 CLS:PRINT esx$; "Sauvegarder ‘: 
esx$:PRINT 

2140 GOSUB 3550 

2150 IF 29-" * THEN RETURN 
2160 z$=z$+".MUS" :OPENOUT z$ 

2170 PRINT#9,Kt! 

2180  PRINT#9,NN 

- 2190 FOR zi=1 TO NN:PRINT#9,FP(zi 
):PRINT#9,FD(zi):NEXT 


GG 


V 





2200 CLOSEOUT )YE 
2210 RETURN )EJ 
2220! FESSES ESS TRES ESS RES Del 
2230 " Charger un sorceau >iK 
2240 -------------------------"-"-- )YA 


2250 CLS:PRINT esx$; "Charger un mor GE 
ceau ";esx$:PRINT 


2260 GOSUB 3550 IF 
2270 IF z$=" " THEN RETURN  )YT 
2280 z$-z$+".MUS":O0PENIN z$ DE 
2290  INPUT#9,Kt! : INPUT#9,NN )YA 
2300 FOR zi={ TO NN:INPUT#9,FP(zi >CB 
): INPUT#9,FD(zi) :NEXT 

2310 CLOSEIN LG 
2320 RETURN )FA 
2990-5255 sssss ses sssssesess )YA 
2340 ' CATalogue )YB 
2350 "55-52-25 )YC 
2360 CLS :CAT )JG 
2370 WHILE INKEY$="": VEND >UH 
2380 RETURN >FG 
2390 "----------------------------- »YG 
2400 ' Jouer un sorceau Del 
2410 "----------------------------- >XK 


2420 CLS:PRINT esx$;"Jouer un sorce >VB 
au";esx$ 

2430 PRINT'II y a ";NN:" Notes.":LO >CX 
CATE 2,13:PRINT"(000) Pour sortir." 


2440 LOCATE 1,5:PRINT'"A partir de | »>GH 
a note :":GOSUB 3420 

2450 LOCATE 23,5:PRINT z$:za=z:1F z >PX 
=0 THEN 2550 

2460 LOCATE 1,6:PRINT"Jusqu'a la no )ED 
te :":GO0SUB 3420 

2470 LOCATE 23,6:PRINT z$:zb=z:1F z >PB 
=0 THEN 2550 

2480 IF za>zb THEN z=za:za=zb:zb=z >DG 
2490 IF zb>999 THEN PRINT CHR$#(7)+C >VP 

HR$(8);:GOT0 2550 

2500 CLEAR INPUT:PRINT"#Pressez une >YG 
touchet4":WHILE INKEY$="":WEND 

2510 FOR zi=za TO zb >NA 

2520 zfp-FP(zi):zd=kt'!#ABS(FD(zi) >HZ 
):1F zd=0 OR INKEY$C)"" THEN zi=999 
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9:GO0T0 2540 


2530  SOUND 1,zfp,zd,15:SOUND 1,zf >JR 
p,0.5,0 

2540 NEXT LC 
2550 RETURN >FF 
2560 END " Sisple precaution >ZB 
25/0 == see sTenresse >YG 


2600 CLS: )GE 
2610 PRINT#1,CHR$(150)+STRING$ (5,15 >EA 
4)+CHR$(158)+STRINGS(7,154)+CHR$ (15 
8)+STRING$(7,154)+CHR$(156)+CHR$ (15 
0)+STRING$ (4,154) +CHR$(156)+CHR$(15 
0)+STRINGS(4,154)+CHR$(156) 

2620 PRINT#1,CHR$(149) :"Ganse" ;:CHR$ 
(149); "Note ":CHR$(149);"Duree " 
;CHR$(149);CHR$(149);" No ";CHR$(14 
9);CHR$(149);" Kt ":;CHR$(149) 

2630 PRINTH1,CHR$(151)+STRINGS (5,15 
4)+CHR$ (159) +STRINGS(7,154)+CHR$ (15 
9)+STRINGS(7,154)+CHR$(157)+CHR$(1S 
1)+STRINGS(4,154)+CHR$(157)+CHR$ (15 
1)+STRINGS(4,154)+CHR$(157) 

2640 PRINT#1,CHR$ (149) +SPACE#(5)+CH 
R$(149)+SPACE$(7)+CHR$ (149) +SPACES$( 
7)+CHR$(149)+CHR$ (149) +SPACES$(4)+CH 
R$(149)+CHR$(149)+SPACES(4)+CHR# (14 
9) 

2650 PRINTHI,CHR$(147)+STRINGS (5,15 
4)+CHR$(155)+STRING$(7,154)+CHR$(15 
5)+STRING$(7,154)+CHR$(153)+CHR$ (14 
T)4+STRINGS(4,154)+CHR$(153)+CHR$ (14 
T)+STRING# (4,154) +CHR$ (153) 

2660 PRINT#i," - + 
as$:" 2141 

2670 PRINT#1," 


V 


HZ 


LA 


EL 


LA 


WL 


sr 


EH 


";desg )LJ 


WE TYU" NC 

2680 PRINT#1," / c ASDFGHJ ZÂCVBN >KC 
";CHRS(242):" ";CHR$ (243) 

2690 RETURN >GÀ 


2730 LOCATE #1,2,4:PRINT#1,"1234":L DXJ 
OCATE #1,1+GM,4:PRINT#{ ,esx$:CHR$ (4 
8+GM) ;esx$ : RETURN 


2740 "=" »YF 
2750 ' Aff Non  (Nt) »\G 
2760 "-------- >YH 


27170 IF nt=0 THEN z-0 ELSE z=nt MOD >WE 


12:1F 2=0 THEN 2:12 
2780 LOCATE #1,8,4:PRINTHI,LEFTS(no BY 


n$(z)t"  *,6):RETURN 

2100: lee Re ss ZA 
2800 ' Aff Duree (Dn) )YC 
2810 rss see sn iinsee »YD 


2820 z=2°(6-Dn):1F Pt THEN z=z#1.5 )BA 


2830 LOCATE #1,16,4:PRINT#1,z:" ": VW 
LOCATE #1,21,4:PRINT#1, des$(Dn); : IF 
Pt THEN PRINT#1,"." ELSE PRINT#1," 


2840 RETURN >FH 
2850 '------------------""....-- >YH 
2860 ? Aff Des Note Courante »YJ 
2870 "---------------- >YK 


2880 zn-No:zp=pt:zGa-Ga:1F nt=0 THE >NM 
N znt=0 ELSE znt=(Ga-1)#12tnt 
2890 IF Dn>0 THEN zd-Dn ELSE Zd=3  >AK 


2900 ?--------"-"""""" »YD 
2910 * Aff Des  SSPRG JE 
2920 ?--------- YF 


2930 zx=(zn MOD 70)#8+40:1F znt=0 T PE 
HEN 2$=bic$(zd):zy=310:G0T0 2950 

2940 zy=262+4#((zGm-1)#7tht(((znt-1 >GP 
) MOD 12)+1)-1):z$=des$(zd) 

2950 LOCATE #2,(zn MOD 70)+6,2:PRIN >NQ 
T #2,vports 

2960 TAG 82:MOVE zx,zy:PRINT#2,z$;: >DN 
IF zp THEN PRINT#2,"."; 


2970 TAGOFF #2:RETURN >QU 
2980 ?----------------------------- >ZB 
2980 ’ Aff No >2U 
3000 ?----------------------------- >)iF 


3010 LOCATE #1,25,4:PRINT#1,RIGHTS( >WK 
"_ "+STR$(No),4) 

3020 LOCATE #2,5+(No MOD 70),12:PRI >LG 
NTH2,"  " 

3030 IF FD(No)=0 THEN RETURN >HU 
3040 z=FP(No):GOSUB 3110:Ga=1:Nt=z: DL 
VHILE Nt>12:nt=nt-12:Ga=Ga+1i:WEND 

3050 z=FD(No) :GOSUB 3170:Dn=z:Pt=2p )ET 


3060 GOSUB 2730:GOSUB 2770:G0SUB 28 >EU 
20 


3070 RETURN FD 
3080 ?---------" "D 
3090 * HAUTHOTE "YE 





3110 IF z=0 THEN RETURN 

3120 FOR zi=1 TO 48:1F z=Per(zi) TH 
EN z=zi:zi-99 

3130 NET :RETURN 


.3170 zp=0 


3180 IF z<0 THEN 2=3:RETURN 

3190 IF (z MOD 3)-0 THEN 2p=-1:z-2z/ 
1.5 

3200 FOR zi-0 TO S:1F z=2*(6-zi) TH 
EN z=zi:zi-99 

3210 NEIT 

3220 RETURN 


3260 CLS:PRINT curv$:" et CESPACE)" 
:PRINT STRING$(39,"-") 

3270 FOR i=1 TO nop:LOCATE 1,i+2:PR 
INT op$(i):NEXT 

3280 op=1:LOCATE 1,3:PRINT esx$:op$ 
(1);esx$ 

3290 RETURN 


3330 FOR zi=za TO zat69 

3340 z=FP(zj):GOSUB 3110:znt=z:2G 
a=L:UHILE 2)12:2Ga=zGat1:z-z-12:WEN 
D 
3350 
22 
3360  GOSUB 2930 
3370 NEÏT 

3380 RETURN 


z=FD(zj):GOSUB 3170:zn=z;j:zd 


3420 LOCATE 18,9:PRINT CHR$(150):ST 


24 


RL 
RE 


>MV 
)YA 


>YB 
NYC 


GC 
)HB 
>DP 
RG 
>KH 
)FA 
)YA 


)YB 
)YC 


>FC 


)VZ 


>HU 


>FH 
)XJ 


DK 
YA 


>RP 
AB 


>FU 


>ZR 


RING#(3,154) ;CHR$(156):LOCATE 18,10 
:PRINT CHR$(149):" ":CHR$(149):L0 
CATE 18,11:PRINT CHR$(147):STRINGS( 
3,154); CHR$(153) 

3430 z$="000":k$="":VHILE k$OCHR$( DER 
13) 


3440  LOCATE 19,10:PRINT z$ >W 
3450 k$=INKEYS:1F k$="" THEN 3450 DZL 
3460 IF k#=CHR$(13) THEN 3490 )Vu 
3470 k=INSTR("0123456789",.k$):1F >YU 


k=0 THEN PRINT CHR$(7)+CHR$ (8) ; : GOT 

0 3450 

3480  z$=RIGHT$(z$+k$,3) RG 
3490 WEND:z=VAL(z$) >PR 
3500 IF z=0 OR z)NN THEN PRINT CHR$ >PN 
(7)+CHR$ (8) ; 


3510 RETURN FC 
3520 "-------- "YC 
3530 * SaisNonFic »YD 
3540 ?-----"" DYE 


3550 LOCATE 5,10:PRINT" ";CHR$(1 KF 
50) ;STRING$ (12,154) ;CHR$(156) 
3560 LOCATE 5,11:PRINT"Nom ":;CHR$(1 >JJ 
49);" .HUS" ; CHR$ (149) 
3570 LOCATE 5,12:PRINT" ";CHR$(1 LE 
47); STRING$ (12,154) ;CHR$(153) 


3580 z$=" * NF 
3590 WHILE k$CCHR$(13) RU 
3600 kS$=INKEY$:1F k$="" THEN 3600 >ZE 


3610 IF k#=CHR$(13) THEN 3640 >VP 
3620 k$=UPPER$(k$):1F (k$C"A" OR DTA 
k$>"Z") AND k$Q" " THEN PRINT CHR$ 
(7)+CHR$ (8) ; :GO0TO 3600 


3630 z$=RIGHT$(z$+k$,8) :LOCATE 10 >PX 
.11:PRINT z$ 

3640 WEND >JH 
3650 RETURN >FH 
3600 == See ses ses >YH 
3670 " AffFenté NY] 
JOBQr "EEE SRE esse Sense )YK 


3690 CLS#4:LOCATE #4,10,1:PRINT#4,C DUL 
HR$ (150) :STRINGS(17, 154) :CHR$ (156) 

3700 LOCATE #4,10,2:PRINT#4,CHR$(14 >MP 
9):" HU ST UD 1 0 ":;CHR$(149):LO 
CATE #4,10,3:PRINT#4,CHR$ (147) ;STRI 
NG$(17,154) ;CHR$(153) 

3710 PRINT#4, "Copyright : Jean-Manu )YZ 
el MARIES" 

3720 PRINT#4,"Les Bugs, quels bugs ? >PX 
99%: 

3730 RETURN >FG 


Valable pour 
& CPC 464 
8 CPC 664 
@ CPC 6128 


GoLr 


Pour vous initier loin 
des parcours pleins d'air pur 
(c'est dégoüûtant) aux joies du 
golf, n'hésitez pas à taper ce 
listing qui vous entraînera sur 
16 parcours différents. Le 
joystick est obligatoire et la 
règle du jeu est incluse 
dans le listing. 


DAT SLT NURT NS 





LU RERRARRERRRERAERRRE LA LG PLOT 1,1. 1:0RAë 630. 1:DRAN 629, BK ci iF INKEY(/634> 1 THEN GOTO 310 AL 
20 ? LÉ 399:DRA& 1,3599:DRAU 1,1 

30 ? JÉANJEAN PATRICK Stt 180 FLOT 6.6:DRAW 633.6:DRAU 633.39 >ZE 286 IF INKEï(/33=-1 THEN GOTO 250  »2ÿ 
au ? LD S:DRAN 6,393:DRA4 6,6 

oÙ presente LE 196 FOR a=4 TG 8:LOCATE {1,a:PAFER 2KJ 290 LOCATE 15,13r£#choix:FRINT senu NT 
où ‘ Lt L:PRINT STRINGS(21," J:NEXT $(choixi:choix=choixti:iF choix=3 T 
tu! TüuRNuI Lt GuLr ?Lü Z0G LOCATE 14,6:PEN Z:PRINT'TOURNGI >PK | HEN choix=1 

80 ! LH DE Güir" 306 GOTG 56 31G 
JO PARLRSRERANERREERER id ZIG PAPER G:PEN 4:F0R a=3 TO 20:L0C )AI 310 ON choix GOSUB 560,330 JUC 
100 DIN menu$i2;:biM trou$t16}) >XF ATE {0,a:PRINT CHR#(138):LOCATE 32, 320 GOTO 55ù >2D 
110 SYMBUL AFTER Z66:GUSUB 3100 DA: a: PRINT CHR$(1333 :NEXT 330 RG 
120 ! RD 220 - MENU - -—- DRE | 340 "sssss RECLE OU JEU 248421 >RH 
140 'atare PRESENTATION 22444 BE 230 RESTORE 2260:FOR a=1 TO 2:READ 14 | Jd5ü )kJ 
140 ! . RE a$:menuÿ(a)=a$:NEXT | 360 HODE 1:BORDER 1:INK O,1:T'ATER 1 2HA 
IE0 ls: DECURS - --- 'hü 24 FÜR a=f TO 2:PAPER O:PEN L:LOCA CC :PEN à 

160 MULE 1:1NK Ü,S:BURDER 9:1INk 1,2 ML TE 15,13:2:m: PRINT senu$(s) :NEXT:ch 370 FOR a=i TO 3:LOCATE 14,a:PRINT >ZX 
G:INK 2,6:1NK 3,3:INK 5,18:INK 5,19 oix=1 STRING$(14." "):NEXT 

INK 7,12:INK 8,4,7:INK 9,24:INK 10 25G LOCATE 15,13:2:cho1x:PRINT CHR$ >JJ 380 LOCATE 15,2:PRINT"REGLE DE JEU* EC 
A2INK IL, 4:INR 12, 15:iNK 13,26,0:i (23; ;menusichoixz:CHR$ (24 

NK 14,0:INK 15,14 260 FOR 8=i TO 2566:NEXT >0G 390 PAPER O:PEN ! ?Lü 


25 


400 LOCATE 1,6:PRINT" Ce jeux vo 
us perset de jouer au goltsur un pa 
rcours de 16 trous." 

410 LOCATE 1,9:PRINT" Toutes les 
cossandes s'effectuent a l'aide d' 
un JOYSTICK." 

420 LOCATE 1,12:PRINT" 
z tout d'abord s'election- ner le t 
errain . Ceux-ci sont classes sui 
vant leurs niveaux de ditticulites. 
430 LOCATE 1,16:PRINT" Pour sele 
ctionner la force et l'an- gie de t 
rappe de la balle , utilisez le JOY 
STICK. Il vous est possible d'ajuste 
r votre frappe suivant le principe 


ci- . dessous :" 

440 LOCATE 1,22:PRINT" HAUT : 
+ BAS : -1" 

450 LOCATE 1,23:PRINT" DROITE : 
+10 GAUCHE : -10" 


460 GOSUB 520 

4t0 CLS:PRINT" Si un arbre,une b 

arriere ou un pan- neau se trouve 5 
ur la trajectoire de la balle,elle 
rebondira dessus. * 

480 LOCATE {,5:PRINT" Si la ball 

e tosbe dans l'eau ou sortdu terrai 
n, il vous taudra recommencer ie p 

arcours." 

490 LOCATE {,9:PRINT" Si la ball 

e tombe dans le sable,une puissance 
de trappe superieure a la nor-sale 
sera necessaire pour la degager." 


500 LOCATE 1,13:PRINT" 
audra egalement prendre en compte | 


e vent qui souffle sur ie par- cou 
rs." 
510 LOCATE 1,17:PRINT" A la fin 


d'un parcours , appuyez sur( FIRE » 
pour revenir au menu." 


520 LOCATE 18,25:PRINT CHR$(24)+" F ) 


ÎIRE "+CHR$(24) 


530 IF INKEY(76)C>-1 THEN GOTO 550 
540 IF INKEY(73)=-1 THEN GOTO 530 
550 RETURN 

560 ? 


570 ‘####4 CHOIX DU PARCOURS #x2#1 


580 0 

590 MODE 1:INK 0,1:BORDER 1:PAPER 1 
PEN 2 

600 FOR a=1 TO 3:LOCATE 12,a:PRINT 
STRING$(19," "):NEXT 

610 LOCATE 13,2:PRINT"CHOIX DU PARC 
OURS" 

620 RESTORE 2270:FO0R a=1 TO 16:READ 


Vous deve 


Il vous f ) 


)YT 


)YQ 


)2W 


DJ 


)TB 
TC 


TD 
KG 


2N 


>LK 


MA 





a$:trou$(m)=a$:NEXT 

630 FOR a=1 TO 16:PAPER 1:PEN 2:LOC 
ATE 15,6+a:PRINT trou$(m):NEXT:choi 
1={ 

640 LOCATE 15,6+choix:PRINT CHR$ (24 
)strou$(choix);CHR$ (24) 

650 FOR a=i TO 150:NEXT 

660 IF INKEY(76)C>-1 THEN GOTO 700 
670 IF INKEY(73) =-1 THEN GOTO 660 
680 LOCATE 15,6+choix:PRINT trou$(c 
hoix):choix=choixti:iF cho1x=17 THE 
N choix=i 

690 GOTO 640 

700 INK 0,9:0N choix GOSUB 750, 780, 
810, 840,880, 920, 960, 1000, 1040, 1100, 
1160, 1200, 1270,1310,1370, 1470 

710 GOSUB 1660:G0T0 2670 

720 ? 

130 ‘#suus DECORS ##### 

740 ? 

750 !----- TROU 1 
760 MODE O:BORDER 1:PAPER O:nb=7:co 
ul=5:RESTORE 2290:G0SUB 1570:nb=6:c 
oul=6:RESTORE 2300:G0SUB 1570 

110 x=9:y=2:GOSUB 1540:PRINT"O1":x= 
2:y=10:G0SUB 1550:x=17:y=10:G0SUB 1 
550:x=18:y=9:G0SUB 1560:coul=7:i=80 
: 3=240: RETURN 

180 "----- TROU 2 
790 MODE O:BORDER 1:PAPER O:nb=8:co 
ul=5;RESTORE 2320:G0SUB 1570:nb=5:c 
oul=6:RESTORE 2330:G0SUB 1570 

800 x=3:y=4:G0SUB 1540:PRINT"O02" : x= 
2:y=19:G0SUB 1550:x=17:y=2:G0SUB 15 
50:x=18:y=1:G0SUB 1560:coul=7:i=80: 
3=95:RETURN 

810 ?----- TROU 3 
820 MODE O:BORDER i:PAPER O:nb=13:c 
oul=S:RESTORE 2340:GO0SUB 1570:nb=5: 
coul=6:RESTORE 2350:G0SUB 1570 

830 x=12:y=6:G0SUB 1540:PRINT"03":x 
=3:y=2:G0SUB 1550:1=17:y=18:GOSUB 1 
550:x=4:y=1:G0SUB 1560:coul=7:i=560 
:ÿ=110:RETURN 
TROU 4 
850 MODE O:BORDER 1:PAPER O:nb=7:co 
ul=5:RESTORE 2360:G0SUB 1570:nb=5:c 
oul=6:RESTORE 2370:G0SUB 1570 

860 x=8:y=3:G0SUB 1540:PRINT"04":x= 
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28 


FU 


>RA 
DAT 
)2V 
?LE 


)AB 
HZ 


)RT 
>RK 
>TA 
>TB 
)TC 
> 


CF 


V 


DTF 
> 


V 


ZA 


>RK 
>RH 


)CY 


)TC 
>QA 


>GN 


2:y=11:GO0SUB 1550:x=17:y=11:GOSUB 1 
S50:x=18:y=10:GOSUB 1560 

870 coul=9:x=14:y=8:GOSUB 1580:x=12 
:y=15:G0SUB 1590:coul=7:i=80: j=225: 
RETURN 

TROU 5 ----- 
890 MODE O:BORDER 1:PAPER O:nb=8:co 
ul=5:RESTORE 2380:G0SUB 1570:nb=5:c 
oul=6:RESTORE 2390:GO0SUB 1570 

900 x=13:y=2:G0SUB 1540:PRINT"05": x 
=2:y=2:G0SUB 1550:x=17:y=19:GOSUB 1 
550:x=18:y=18:GOSUB 1560 

910 coul=9:x=9:y=9:G0SUB 1620: coul = 
10:x=13:y=17:GOSUB 1580:coul =7:1=80 


930 HODE O:BORDER 1:PAPER O:nb=6:co 
ul=5:RESTORE 2400:G0SUB 1570:nb=6:c 
oul=6:RESTORE 2410:G0SUB 1570 

940 x=2:y=3:GOSUB 1540:PRINT"06" : x= 
2:y=19:GO0SUB 1550:x=17:y=19:GOSUB 1 
550:x=18:y=18:G0SUB 1560 

950 coul=9:x-9:y=S:G0SUB 1590: coul = 
10:x=13:y=17:GOSUB 1580:x=15:y=2:G0 
SUB 1630:coul=7:1=80: j=95:RETURN 
TROU 7 
970 HODE O:BORDER 1:PAPER O:nb=6:co 
ul=5:RESTORE 2420:G0SUB 1570:nb=4:c 
oul=6:RESTORE 2430:GO0SUB 1570 

980 x=8:y=11:G0SUB 1540:PRINT"07":x 
=2:y=19:G0SUB 1550:x=2:y=2:G0SUB 15 
50:x=3:y=1:GOSUB 1560 

990 coul=9:x=17:y=18:G0SUB 1600:cou 
1=10:x=15:y=3:G0SUB 1620:x:=2:y=6:G0 


“SUB 1580:PLOT 1,150:DRAWR 400,0, 12 


:PLOT 1,152:DRAUR 400,0:coul=7:i=80 
: 1=95 : RETURN 

1000 '----- TROU 8 
1010 MODE O:BORDER 1:PAPER O:nb=Q:c 
oul=5:RESTORE 2440:G0SUB 1570:nb=5: 
coul=6:RESTORE 2450:GO0SUB 1570 

1020 x=2:y=17:G0SUB 1540:PRINT"08": 
=2:y=2:G0SUB 1550:x=17:y=2:GOSUB 1 
550:x=18:y=1:G0SUB 1560 

1030 coul=9:x=17:y=17:G0SUB 1600: co 
ul=10:x=9:y=15:G0SUB 1590:PLOT 323, 

200:DRAWR 0,400,12:PLOT 319,200:DRA 
WR 0,400:coul=7:1=80: j=366: RETURN 


1040 ?----- TROU 9 
1050 MODE O:BORDER 1:PAPER 0:FOR x= 

6 TO 15:FOR y=6 TO 16:PEN 10:LOCATE 
1,y:PRINT"S":NEXT:NEXT:LOCATE 6,6: 

PRINT®*":LOCATE 15,6:PRINT"W":LOCAT 
E 6,16:PRINT"?":LOCATE 15,16:PRINT" 
L] 


1060 r=7:y=7:GOSUB 1640 


>GL 


TG 
> 


TB 
>QN 


)TF 
> 


Vv 


CR 


v 


TJ 


>XD 
RG 


>PC 


>XH 
CH 


Vv 


>RU 


1070 PAPER O:nb=4:coul=5:RESTORE 24 >RK 
60:G0SUB 1570:nb=3:coul=6:RESTORE 2 
470:G0SUB 1570 
1080 x=9:y=9:G0SUB 1540:PRINT"09":x )JD 
=2:y=11:G0SUB 1550:x=17:y=11 :GOSUB 
1550:x=18:y=10:GO0SUB 1560 
1090 coul=9:x=16:y=2:GOSUB 1590:x=1 >HB 
7:y=18:G0SUB 1600:coul=7:i=80: j=225 
RETURN 
1100 "----- TROU 10 ----- DE 
1110 MODE O:BORDER 1:PAPER O:FOR x= >CW 
6 TO 15:FO0R y=7 TO 20:PEN 10:LOCATE 
1,Y:PRINT"S":NEXT:NEXT:LOCATE 6,7: 
PRINT®*":LOCATE 15,7:PRINT"W":LOCAT 
E 6,20:PRINT"?*:LOCATE 15,20:PRINT" 
L] 
1120 x=7:y=10:GOSUB 1640 )TC 
1130 PAPER O:nb=4:coul=S:RESTORE 24 >RL 
80:GOSUB 1570:nb=3:coul=6:RESTORE 2 
490:GO0SUB 1570 
1140 x=9:y=12:G0SUB 1540:PRINT"10": »KE 
x=2:y=19:GOSUB 1550:x=17:y=19:GOSUB 
1550:x=18:y=18:G0SUB 1560 
1150 coul=9:x=2:y=2:G0SUB 1580:x=16 DEX 
:y=2:G0SUB 1590: coul =7: 1=80: }=95:RE 
TURN 
1160 ’----- TROU 11 ----- >YA 
1170 MODE O:BORDER 1:PAPER O:nb-6:c >RD 
oul=5:RESTORE 2500:G0SUB 1570:nb=4: 
coul=6:RESTORE 2510:G0SUB 1570 
1180 x=1:y=10:GOSUB 1540:PRINT"11": DFK 
x=/:y=11:GOSUB 1550:x=11:y=11 : GOSUB 
1550:x=8:y=10:G0SUB 1560:PLOT 303, 
115,12:DRAUR 0,240:PLOT 306, 115:DRA 
VR 0,240 
1190 coul=9:x=2:y=2:G0SUB 1580:x=2: BJ 
y=18:G0SUB 1610:coul=10:x=7:y=6:G0S 
UB 1600:x=6:y=15:GOSUB 1590:x=11:y= 
5:G0SUB 1630:x=13:y=14:G0SUB 1620:c 
oul=7:i=370: j=225:RETURN 
1200 ’----- TROU 12 ----- )XF 
1210 MODE O:BORDER {:PAPER 0:FOR x= >JG 
. 1 T0 9:FOR y=6 TO 16:PEN 10:LOCATE 
x,Y:PRINT'S":NEXT:NEXT:LOCATE 9,6:P 
RINT"U®:LOCATE 9,16:PRINT"_":FOR x= 
12 TO 20:FO0R y=6 TO 16:LOCATE x,y:P 
RINT"S":NEXT:NEXT:LOCATE 12,6:PRINT 
"A#:LOCATE 12,16:PRINT"?" 
1220 x=1:y=7:G0SUB 1640 >RK 
1230 FOR x=14 TO 18:FOR y=9 TO 13:L >PR 
OCATE x,y:PRINT"S":NEXT :NEXT :LOCATE 
14,9:PRINT""":LOCATE 18,9:PRINT"W" 
:LOCATE 14,13:PRINT"?":LOCATE 18,13 
PRINT" 
1240 PAPER O:nb=4:coul=5:RESTORE 25 >RC 
. 20:G0SUB 1570:nb=3:coul=6:RESTORE 2 
530:G0SUB 1570 





1250 x=3:y=9:GOSUB 1540:PRINT"12":x )GX 

=2:y=2:G0SUB 1550:x=17:y=19:GOSUB 1 

S50:x=18:y=18:G0SUB 1560 

1260 coul=9:x=12:y=2:G0SUB 1580:x:=8 >GB 
:y=18:GO0SUB 1610:coul =7:i=80: =366: 

RETURN 

1270 !----- TROU 13 ----- )YC 

1280 MODE 0:BORDER 1:PAPER O:nb=8:c >RR 

oul=5:RESTORE 2540:G0SUB 1570:nb=4: 

coul=6:RESTORE 2550:G0SUB 1570 

1290 x=15:y=10:G0SUB 1540:PRINT"13" HD 
:2=2:y=19:GOSUB 1550:x=17:y=2:GO0SUB 
1550:x=3:y=18:G0SUB 1560 

1300 coul=9:x=9:y=2:G0OSUB 1620:x=9: >BN 

y=12:G0SUB 1610:x=14:y=16:G0SUB 163 

O:coul=10:x=2:y=6:G0SUB 1630:x=4:y= 
13:GO0SUB 1590:x=8:y=8:G0SUB 1580:x= 

8:y=16:GOSUB 1620:x=15:y=5:G0SUB 16 

00:coul=7:i=560: j=366 : RETURN 

1310 ’----- TROU 14 ---- )XH 
1320 MODE O:BORDER 1:PAPER 0:FOR x= DJE 
1 TO 20:PEN 10:LOCATE x,11:PRINT"S" 
LOCATE x,12:PRINT"S":NEXT 

1330 nb=16:coul=5:RESTORE 2560:G0SU >GB 

B 1570:nb=7:coul=6:RESTORE 2570:G0S 

UB 1570 

1340 x=9:y=2:G0SUB 1540:PRINT"14":x DJR 

=2:y=19:G0OSUB 1550:x=17:y=19:GOSUB 
1550:x=18:y=18:G0SUB 1560 

1350 coul=9:x=15:y=5:G0SUB 1630:cou >FC 
1=10:x=4:y=2:G0SUB 1620 

1360 PLOT 333, 70:DRAUR 0,137,12:PLO >HG 

T 336,70:DRAUR 0,137:coul=7:1=80: j= 

95 :RETURN 

1370 !----- TROU 15 ----- )YD 

1380 MODE O0:BORDER 1:PAPER O:PEN 10 >2J 
:FOR x=1 TO 20:LOCATE x, 7:PRINT"S": 

LOCATE x, 14:PRINT'S":NEXT:FOR y=1 T 

0 20:LOCATE 7,y:PRINT"S":LOCATE 14, 

y:PRINT"S":NEXT 

1390 FOR a=1 TO 8 STEP 2:PLOT‘1,71+ ZX 

a,10:DRAUR 640,0:NEXT 

1400 PEN O:PAPER 10:RESTORE 2580:F0 >HW 

R a=i TO 9:READ x,y:LOCATE x,y:PRIN 

TAN: NET 

1410 RESTORE 2590:FO0R a=1 TO 9:READ >NK 
1,y:LOCATE x,y:PRINT"Y":NEXT 

1420 RESTORE 2600:FO0R a=1 TO 9:READ >MK 
1,y:LOCATE x,y:PRINT"?":NEXT 
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1430 RESTORE 2610:FO0R a=1 TO 9:READ >NN 
x,y:LOCATE x,y:PRINT" ":NEXT 
1440 PAPER O:nb=5:coul=5:RESTORE 26 >RH 
20:G0SUB 1570:nb=3:coul=6:RESTORE 2 
630:G0SUB 1570 
1450 r=9:y=9:GOSUB 1540:PRINT"15":x >DN 
=2:y=2:G0SUB 1550:x=17:y=18:GO0SUB 1 
550:x=3:y=1:GOSUB 1560 
1460 coul=9:x=10:y=2:G0SUB 1600:x=2 >PG 
:y=9:GOSUB 1580:coul=10:x=16:y=9:G0 
SUB 1590:1=9:y=17:GOSUB 1610:coul=7 
:1=560: j=110: RETURN 
1470 '----- TROU 16 ----- )YE 
1480 MODE O:BORDER 1:PAPER O:x=7:F0 )CC 
R y=1 TO 20 STEP 4:PAPER 10:PEN 0:L 
OCATE x,y:PRINT" 2? ":LOCATE x, 
Y+{:PRINT® *W “W ":LOCATE x,y+2:PR 
INT" ?_ 2? ":LOCATE x,y+3:PRINT" 
°W  ":NEXT 
1490 FOR a=1 TO 8 STEP 2:PLOT 195,7 HT 
1+a,10:DRAVR 90,0:PLOT 355,71+a:DRA 
VR 90,0:NEXT 
1500 PAPER 0::nb=S:coul=5:RESTORE 2 TC 
640:G0SUB 1570:nb=4:coul=6:RESTORE 
2650:G0SUB 1570 
1510 x=16:y=2:GOSUB 1540:PRINT"{16": >JF 
x=2:y=2:G0SUB 1550:x=17:y=19 :GOSUB 
1550:1=18:y=18:GOSUB 1560 
1520 coul=9:x=2:y=7:G0SUB 1590:1=16 >CZ 
:y=13:GOSUB 1610:coul=10:x=2:y=17:G 
OSUB 1580 :coul =7:1=80: 1=366 :RETURN 
1530 !----- DECORS COMMUNS ----- )YB 
1540 PEN 1:LOCATE x,y:PRINT'A88é":L >WH 
OCATE x,y+1:PRINT"S884%:LOCATE x,y+ 
2:PRINT"SS88":PEN 3:LOCATE x,y+3:PR 


INT" ‘":PAPER 1:PEN 2:LOCATE x#1, 
y+1:RETURN 
1550 PAPER O:PEN 7:LOCATE x,y:PRINT BK 


"*SW*:LOCATE x,y+1:PRINT"?8 ":RETUR 

N 

1560 PEN 8:LOCATE x,y:PRINT'A":PAPE )JY 
R 7:PEN 15:LOCATE x,y+1:PRINT"&":PE 

N 14:LOCATE x,y+2:PRINT CHRS(119):R 
ETURN 

1570 FOR a=1 TO nb:READ x,y:PEN cou >ME 
1:LOCATE x,y:PRINT"!":PEN 3:LOCATE 
1,Y+1:PRINT"8":NEXT : RETURN 

1580 PAPER O:PEN coul :LOCATE x,y:PR DAW 
INT"*SSU":LOCATE x,y+1:PRINT"S88 ": 
LOCATE x,y+2:PRINT"?8c":RETURN 

1590 PAPER O:PEN coul :LOCATE x,y:PR >DU 
INT"*SSU":LOCATE x,y+1:PRINT"2889": 
LOCATE x+1,y+2:PRINT"#S_": RETURN 

1600 PAPER O0:PEN coul :LOCATE x,y:PR GW 
INT'ÜüSU":LOCATE x-1,y+1:PRINT"* 484" 
:LOCATE x-1,y+2:PRINT"289 ":RETURN 

1610 PAPER O:PEN coul :LOCATE x,y:PR DAN 





INT" S'":LOCATE x,y+1:PRINT"8864":L 
OCATE x,y+2:PRINT"?88 ":RETURN 

1620 PAPER O:PEN coul :LOCATE x,y:PR DDX 
INT® SU": LOCATE x-1,y+1:PRINT'üg88 
SM:LOCATE x-2,y+2:PRINT""8849 “:LOC 

ATE x-2,y+3:PRINT"448c":LOCATE x-2, 
yt4:PRINT"?8 ":RETURN 

1630 PAPER O:PEN coul :LOCATE x,y:PR >PH 
INT" 66" ":LOCATE x,y+1:PRINT"66664" 
:LOCATE x,y+2:PRINT"?8488%:LOCATE x 
+1,y+3:PRINT"#88c":LOCATE x+2,y+4:P 
RINT"?_":RETURN 

1640 FOR a=1 TO 6:FO0R b=1 TO 6:PEN DVV 
O:LOCATE x+a,ytb:PRINT'S":NEXT:NEXT 
:PAPER 10:LOCATE x+1,y+{:PRINT""":L 
OCATE x+6,y+1:PRINT"'H®:LOCATE x+1,y 

+6: PRINT"? ":LOCATE x+6,y+6:PRINT" " 
RETURN 


1650 )YE 
1660 ’#uxsx VENT #a#x )YF 
1670 >*G 
1680 PLOT 1,1,13 >GC 
1690 vent=INT(RND(1)#360) >UG 


1700 PAPER 1:PEN 11:LOCATE 1,22:PRI >VP 
NT'vent";vent 


1710 11=1:11=1 AC 
1720 )YC 
1730 '#ux#x NB COUP ##### >) 
1740 )YE 


1750 DEG:FOR a=1 TO 360 STEP S:PLOT >AK 
600,32,1:PLOTR 26#C0S(a),264SIN(a) 
:NEXT 


1760 >YG 
1770 coup=coupt{ >HP 
1780 LOCATE 11,22:PRINT"coup":coup )FA 
1790 ? DK 
1800 PLOT 1,70,1:DRAWR 640,0 >vu 


1810 PEN 11:LOCATE 13,24:PRINT "ang >HX 
le":LOCATE 13,25:PRINT angle 

1820 PLOT 600,1,1:DRAW 600,63:PLOT VE 
565,32:DRAW 635,32 


1830 )YE 
1840 '#uxsx FORCE ###44 DYF 
1850 ? >YG 
1860 FOR a=1 TO S0OO:NEXT:PRINT CHR$ DGR 
(7); 


1870 PAPER O:PLOT 7,2,1:DRA#R 308,0 )QZ 
:DRAWR 0,8:DRAUR -308,0:DRAUR 0,-8 


1880 IF INKEY(72)=0 THEN force=forc )CC 
et1:1F force>300 THEN force=300:G0T 

0 1980 

1890 1F INKEY(73)=0 THEN force=forc >RH 
e-1:G0T0 1940 

1900 IF INKEY(75)-=0 THEN force=forc >DW 
e+{0:1F force>300 THEN force=300:G0 

TO 1980 





1910 IF INKEY(74)-0 THEN force=forc >TX 

e-10:G0T0 1940 

1920 IF INKEY(76)-0 THEN PEN 11:PAP BC 

ER 1:LOCATE 1,24:PRINT "force" :GO0TO 
2040 

1930 GOTO 1980 >NJ 
1940 PLOT 310,4:DRAUR -300tforce,0, DFG 

0:1F force(i THEN force=1 

1950 PLOT 310,6:DRAWR -300+force,0 )BX 


1960 PLOT 310,8:DRAUR -300tforce,0 )BA 


1970 GOTO 2010 >HH 
1980 PLOT 10,4:DRAUR force, 0,2 )YA 
1990 PLOT 10,6:DRAUR force, 0 DE 
2000 PLOT 10,8:DRAUR force, 0 JUN 


2010 PEN 11:PAPER 1:LOCATE 1,24:PRI DVL 
NT CHR$(24)+"force"+CHR$(24):force 


2020 GOTO 1870 >HH 
2030 ? >XH 
2040 '##### ANGLE ##### )X 
2050 ? >XX 


2060 FOR a=1 TO 500:NEIT:PRINT CHR$ >GJ 
(7); 

2070 PEN 11:LOCATE 13,24:PRINT CHR$ CL 
(24)+"angle"+CHR$ (24) 

2080 IF INKEY(72)=0 THEN angle=angl )XQ 

eti:1F angle>359 THEN angle=0 ELSE 

2180 

2090 IF INKEY(73)=0 THEN angle=angl >XT 
e-1:1F angle<O THEN angle=359 ELSE 

2140 

2100 IF INKEY(74)=0 THEN angle=ang! »YC 

e-10:1F angle<(0 THEN angle=359 ELSE 
2120 

2110 IF INKEY(75)=0 THEN angle=angl DYE 

e+{0:1F angle>359 THEN angle=0 ELSE 
2160 

2120 DEG:PLOT 600,32:DRAWR 22#C0S(- >BZ 

angle+80),22#SIN(-angle+80),0:PLOT 

600,32:DRAYR 22#C0S(-angle+90), 2245 
INC-angle+90),1 

2130 GOTO 2190 HF 

2140 DEG:PLOT 600,32:DRAUR 22#C05(- >CM 

angle+89),224SIN(-angle+89),0:PLOT 

600,32:DRAUR 22#C0S(-angle+90),2245 
INC-angle+90),1 

2150 GOTO 2190 >MH 
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2160 DEG:PLOT 600,32:DRAWR 22#C0S(- DFT 
angle+100),224SIN(-angle+100),0:PLO 

T 600,32:DRAWR 224C0S(-angle+90),22 
2SIN(-angle+00),1 

2170 GOTO 2190 >HK 
2180 DEG:PLOT 600,32:DRAUR 22#C0S(- CB 
angle+91),222#SIN(-angle+91),0:PLOT 
600,32:DRAUR 22#C0S(-angle+90),22#S 
IN(-angie+90),1 

2190 PEN 11:PAPER 1:LOCATE 13,25:PR DMU 
INT angle 

2200 PLOT 600,1,1:DRAW 600,63:PLOT >VX 
565,32:DRAW 635,32 

2210 IF INKEY(76)=0 THEN GOTO 2670 AH 


2220 GOTO 2080 >HD 
2230 JXK 
2240 '#u##x DATAS ##### YA 
2250 ? >YB 
2260 DATA Debut ,Regle du jeu WA 


2270 DATA " PARCOURS 1 ",* PARCOUR >TK 
S 2"," PARCOURS 3 "," PARCOURS 

4 "," PARCOURS 5 "," PARCOURS 6 * 

," PARCOURS 7 "," PARCOURS 8 *," 
PARCOURS 9 "," PARCOURS 10 "," PAR 
COURS 11 "," PARCOURS 12 "," PARCOU 

RS 13 "," PARCOURS 14 *," PARCOURS 

15" 

2280 DATA * PARCOURS 16 " >TU 
2290 DATA 6,18,8,18,10,18,12,18,14, >PU 
18,16,18,18,18 

2300 DATA 2,7,2,13,6,2,15,2,17,2,19 >BD 
2 

2310 DATA 6,19,8,19,10,19,12,19,14, DYG 
19,16,19, 18,19,2,8,2,14,6,3,15,3,17 
,3,19,3 

2320 DATA 8,9,11,6,10,16,16,10, 19,7 MF 
,14,18,18,14 

2330 DATA 5,12,14,3,7,19,13,13,19,1 >BF 
8 

2340 DATA 6,15,8,15,10,15,12,15,14, DK 
15,16,15,18,15,2, 7,2, 11,2, 15,2, 19,9 
,9,18,4 

2350 DATA 6,7,6,11,10,2,17,11,8,5  DYZ 
2360 DATA 3,16,5,16,7,16,9,16,9,10, >KV 
19,7,13,11 

2370 DATA 3,6,5,6,14,5,17,16,10,11 32H 
2380 DATA 7,16,9,16,11,16,2,7,5,13, DPC 
7,2,17,6,19,12 

2390 DATA 3,10,4,18,9,4,11,4,18,8  DYL 
2400 DATA 2,12,6,12,7,5,10,13,10,19 DEH 
,13,3 

2410 DATA 3,10,5,10,9, 16, 10,2,12,15 DFY 
,19,11 

2420 DATA 2,13,5,12,9,19,11,3,17,14 DFN 
,18,11 

2430 DATA 6,9,10, 18,13, 2, 16,10 DE 


. 2440 DATA 2,8,3,11,8,9,9,12,12,12,1 >VD 


4,6,15,3,17, 14,18, 11 

2450 DATA 4,14,6,3,7,6,13,9,19,8  DXH 
2460 DATA 2,7,2,17,6,2,18,15 uk 
2470 DATA 3,4,5,19,19,6 >PY 
2480 DATA 2,10,11,3,19,9,19,14 UN 
2490 DATA 4,16,10,4,18,11 >RD 


2500 DATA 3,7,2,14,17,2,18,6,19,10, >EK 
19,19 


2510 DATA 2,7,3,15, 19,3, 19, 15 NL 
2520 DATA 3,19,5,19,18,3,15, 10 UN 
2530 DATA 4,18,17,11,19,2 >RG 
2540 DATA 3,3,5.3,3,11,5,18,12,6,13 DND 
,18,19,6,19,15 

2550 DATA 4,1,2.14,13,11, 14,2 DUR 


2560 DATA 2,2,3,14,6,14,10,9,6,19,8 >YJ 
,17,9,16,10,15,13,16, 14,2, 14,17, 15, 
14,15,18,19,3,19,15,12,9 

2570 DATA 2,15,7,18,11,8,12,15,16,1 DHL 
9,18,2,18,14 

2580 DATA 1,1,8,1,15,1,1,8,8,8,15,8 >QY 
,1,15,8,15,15,15 

2590 DATA 6,1,13,1,20,1,6,8,13,8, 20 DUT 
,8,6,15,13,15,20,15 

2600 DATA 1,6,8,6,15,6,1,13,8,13,15 DUJ 
,13,1, 20,8, 20, 15,20 

2610 DATA 6,6,13,6,20,6,6,13,13,13, DXN 
20,13,6, 20, 13, 20, 20, 20 

2620 DATA 5,4,18,2,19,3,2,18,16,16 ZR 
2630 DATA 5,16,4,17,16,4 >QH 
2640 DATA 2,14,5,14,16,9,18,10,19,1 >BD 
0 


2650 DATA 3,13,5,4,18,7,16,17 JR 
2660 ! )YG 
2670 ‘##### ANIMATION DE LA BALLE *# )YH 
HH 

2680 Del 
2690 PLOT 1,1,13 GE 
2700 DEG YA 
2710 a=angle >HA 


2720 ix=44SIN(angle):iy=4#C0S(angle )AR 
)/2:ix=ixt (SIN(vent)/4):iy=iy+(COS( 
vent)/4):f=force 

2730 IF force>25 THEN tori=INT(torc >MA 
e/3):for2=INT(for1#0.5):for3=INT(fo 
r240.5):for0=fori#1.2 ELSE fori=t+2 
:for2=f+2:for3=force:for0=for3 

2740 1F coul=9 THEN force=INT(torce DRE 
/2):f=force 

2750 FOR son=8 TO O0 STEP -1:SOUND 3 DAX 
150,2, son, 2,1,5:NEXT 

2760 PLOT i,i,coul:i=itix:i=itiy:co >JV 
ul=TEST({, }):PLOT 1, j,13 

2770 IF f=tori OR f=for2 OR f=for3 WE 
THEN FOR son=7 TO O0 STEP -1:SOUND 4 
200,2, 50n,0,0,2:NEXT 

2780 IF f(for3 THEN SOUND 4,3000,5, DAW 
3:FOR son=1 TO 15:NEXT 





2790 IF 1(0 OR 1639 OR jC72 OR j>4 DCT 

00 OR (coul=10 AND (f=fori OR f=for 

2 OR f(for3+1)) THEN GOTO 2880 

2800 IF coul=3 AND f<for0 THEN GOSU >GC 

B 2900 

2810 IF (coul=5 OR coul=6) AND f>fo >HA 
r3 AND f(for0 THEN GOSUB 2930 

2820 IF coul=14 AND (f=fori OR f=fo >FN 

r2 OR f<for3) THEN GOTO 2970 

2830 IF coul=9 AND (f=fori OR f=for )CA 

2 OR f(for3) THEN SOUND 2,1100,6,6: 

GOTO 1760 

2840 IF coul=1 THEN GOSUB 2900 )XB 

2850 1F coul=12 THEN GOSUB 2900 >YD 

2860 f=f-1:1F f>1 THEN GOTO 2760 EL DHE 

SE GOTO 1760 

2870 PEN 13:G0T0 2710 >PK 

2880 IF coul(>2 THEN FOR son=1 TO 8 >HV 

00 STEP 15:SOUND 1,50n,4,5:NEXT 

2890 PLOT i,{,coul:FOR a=1 TO 1000: >JX 

NEXT:SOUND 1,1500,20,6:i=ii:i=jj:PL 

OT i,j,13:coul=0:G0T0 1760 

2900 FOR son=8 TO 1 STEP -1:SOUND 1 >GY 

,235,5, son:NEXT:rebond=INT(RND(1)#3 
):1F rebond<2 THEN ix=-ix 

2910 IF rebond)0 THEN iy=-iy DUU 

2920 RETURN )FG 

2930 FOR son=0 TO 10:SOUND 1,1,2,30 >AN 

n,0,0,2:NEXT:PLOT i, j,coul:FOR k=;j 

TO 1-16 STEP -1:coul=TEST(i,k) :PLOT 
1,k,13:FO0R a=1 TO 14:NEXT:PLOT i,k 

, coul :NEXT: j=i-16 

2940 IF coul=3 THEN PLOT i,j,coul:j )EA 

=Î-{:coul=TEST(i, ):PLOT i,1,13:GO0T 

0 2940 

2950 PLOT i,i,13:f=0:coul=0:SOUND 1 >MC 
,350,10,5 

2960 RETURN >GA 

2970 BORDER 6,24:FOR soni=1 TO 10:F >VU 

OR son2=10 TO O STEP -{:SOUND 1-5#( 

soni/2=INT(son1/2)),20,2, son2:NEXT: 

NEXT:BORDER 1:force=1:angle=0:coup= 

0 


2980 ? )ZB 
2990 "#uxes GAME OVER ##4#4 )2C 
3000 ’ XF 


3010 FOR a=1 TO 1000:NEXT:PEN 2 )XB 
3020 FOR a=10 TO 12:LOCATE 6,a:PRIN >BM 
T STRINGS(11," "):NEXT 
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3030 LOCATE 7,11:PRINT"GAME OVER"  DCK 
3040 PLOT 160,208,14:DRAWR 350,0:DR >PL 
AUR 0,48:DRAUR -350,0:DRAUR 0, -48 

3050 PLOT 160,206:DRAUR 352,0:DRAUR KB 
0,48:PLOT 160,204:DRAëR 352,0 

3060 FOR a=i TO 3000:NEXT >TB 
3070 IF INKEY(76)€>-1 THEN GOTO 570 »BX 


3080 IF INKEY(73)=-1 THEN GOTO 3070 )BG 


3090 ? DYE 
3100 "#vssx REDEFINITION CARACTERES DKG 
CELLES: 

3110 XH 

3120 SYHBOL AFTER 256:MEMORY 39807: >VQ 
SYMBOL AFTER 33 

3130 *----- ARBRE ----- >Xk 
3140 SYMBOL 33,60, 110,251, 239, 191,2 DKX 

53,118,60 

3150 SYHBOL 35,24, 24, 24, 24, 24, 24,24 DDY 
,24 

3160 "----- DRAPEAU ----- DYC 

3170 SYHBOL 37,0,96,120, 126,127,126 >HV 
,120,96 

3180 SYHBOL 38,64,64,64,64,64,64,64 DEF 
,64 

3190 *----- ENSEIGNE ----- YF 
3200 SYHBOL 64,31,63, 127,255, 255,25 >KQ 

5,255, 255 

3210 SYMBOL 123,248, 252, 254, 255,255 NE 
,255, 255,255 

3220 SYMBOL 125,225, 227, 230, 236,248 DNJ 
,240, 224, 224 

3230 SYHBOL 91,135, 199, 103,55,31,15 >EE 
A1 

3240 '----- EAU ou SABLE ----- DYB 

3250 SYMBOL 93,255,255, 255,255, 255, MY 
255, 255, 255 

3260 SYMBOL 94,1,7,31,63, 127,127, 25 DFX 

5,255 

3270 SYHBOL 63, 255,255, 127, 127,63,3 >FU 
1,7,1 

3280 SYMBOL 87,128,224,248,252,254, HN 

254, 255, 255 

3290 SYHBOL 95,255,255, 254,254, 252, HU 
248, 224,128 

3300 SYHBOL 92, 255,252, 248,240, 224, DKG 
192, 192,0 

3310 SYMBOL 163,255,63,31,15,7,3,3, >BB 
1 

3320 SYMBOL 96, 128,192, 192, 224,240, ML 

248, 252, 255 

3330 SYMBOL 124,1,3,3,7,15,31,63,25 DBA 

5 

3340 SYHBOL 119,96,96,96,0,0,0,0,0 AH 


3350 RETURN FE 





\ UTILITAIRE 


Valable pour 





æ CPC 464 
æœ CPC 664 
& CPC 6128 
Le déplacement du curseur se faitavec à =====> @ 
les flèches, la sélection des menus avec à =====> à CPM par exemple 
la barre espace. Si vous voulez compren- Éé =====> avec l'accolade de début 
RAITEXT dre l'utilisation du logiciel, allez dans è =====> avec l'accolade de fin 
"UTILITAIRES" et choisissez "AIDE".  ° =====> sans Shift avec le crochet 
es . début 
Cet utilitaire est un traitement Caractères spéciaux : $ =====> sans Shift avec le crochet 
de texte qui regroupe de fin 
toutes les options de ceux ç =====> sans Shift avec la barre de 
du commerce (correction, division 


caractères spéciaux..….). 


François BATUN 


ais c'est aussi bien plus qu'un trai- 

tement de texte puisqu'il possède 
ses propres options comme le Bidouilleur 
qui permet de redéfinir instantanément 
le pavé numérique. 


Bref, ce qu'il faut retenir c'est que Trai- 
text peut à la fois imprimer des lettres, 
un listage de votre texte en Basic (INE- 
DIT !) ou encore une lettre avec ses nu- 
méros de lignes devant. 





JUMREELITEESEEETSIEEESESESEEEESIEE )LA 


20 '#+ 11 LB UTILISEZ LE CURSEUR ET VALIDEZ AV 300 1F INKEY(saisie)=0 THEN 430 ELS >PZ 

30 ‘#4 TRAITEXT #x LC | EC “ESPACES POUR L'AÏDE, VOUS PR E x2=x:y2=y 

40 ‘#1 #1 LD ESSEREZ “ENTERS POUR PASSER 310 IF INKEY(g)=0 THEN x=x-ral:avt= EE 

50 ‘#*  ECRIT FAR F.BATUN + LE A LA RUBRIQUE SUIVANTE Î | 

60 ‘## LL ?LF ET AU HENU, VOUS PRESSER 320 IF INKEY(d)=0 THEN x=xtral:mvt= »EA 
70 "s#* POUR AHSTAR & CPC LL) LG EZ “COPYS POUR LA FIN Î 

80 ‘ss 21 >LH 210 PRINT:PRINT" XBON >uz 330 IF INKEY(b)=0 THEN y=y-ral:avt: ED 
G0 's# (ci 1983 *. >LJ NE CHANCE... X Î 

100 ‘#s #1 RE UNE TOUCHE* :CALL 340 IF INKEY(h)=0 THEN y=ytral:avt= >EJ 
110 'anseeseetenersenenmasesenmensee RC &BB18 Î 

120 ? >RD 220 ? ?RE 350 IF x<8 THEN x=6 >HP 
130 ?RE 230 "#22 DÉPLACEMENT CURSEUR #21 >RF 360 IF x2630 THEN x=630 >QR 
140 ? >RF 240 >RG 370. IF y(385 THEN y=385 ?QH 
150 ? ##+ PREPARATION ##+ >RG 250 x=8:y=392:titr$="EXEMPLE" :auteu >RY 380 IF y>399 THEN y=399 >QX 
160 ? >RH $="HACHINCHOZE": : lom=0:ral=12 390 IF avt=1 THEN svt=0 ELSE 300 >YA 
170 ON ERROR GOTO 1360:1NK 0,13:iNK >AL 260 CLS:CLS#1:TAGOFF:PRINT CHR$(23) 2LF 400 TAGOFF:PRINT CHR$(23)+CHR$#(1):: >YH 
1,1:PEN 1:PAPER O:HODE 2:BORDER 13 +CHK$ CL): :T'AG:FLOT 700, O0, 1 TAG:PLOT 700,700, 1 

:SYHBOL AFTER 0:DIH t$(5000) : GOSUB 210 MOVE x,y:PRINT CHR$(253)::x=8:y MF 410 HOVE x2,y2:PRINT CHR#(253)::TAG >DR 
1040 =392:1=ù 

180 TAGOFF:5=12:vol=12:SOUND 1,250, >HE | 280 IF cursjoy=0 THEN g=8:d=i:h=0:b >GC 20 SOUND 1,104,1,vol:CALL &BD19:M0 >PR 
20,s:SOUND 1,200, 20, s:TAG =2:saisie=47:ca$=", TEX":ch$=". BAT": VE x,y:PRINT CHR#(253)::G0T0 300 

190 TAGOFF :CLS FJ GOTO 300 430 * TEST CURS. >RH 
200 FOR e=0 TD 4:PRINT:NEXT:PRINT" )YP 290 g=74:d=75:h=72:b=13:saisie=76  >CH 440 x2=x:y2=y >VD 


30 


450 ? 

460 ? 

470 BORDER 13:1F x>=100 AND x<=2 
AND y>=376 AND INKEY(saisie)=0 THEN 
GOTO 530 


480 IF x2=260 AND x(=360 AND y>=376 : 


AND INKEY(saisie)=0 THEN GOTO 680 
490 IF x2=32 AND x<(=88 AND y>-=376 À 
ND INKEY(saisie)=0 THEN GOTO 2290 
500 IF x>=404 AND x<=476 AND y>=376 

AND INKEY(saisie)=0 THEN GOTO 2480 


510 IF x>=560 AND x<=596 AND y>=376 ; 


AND INKEY(saisie)=0 THEN GOTO 2680 


520 GOTO 310 

530 TAGOFF:CLS:CLS#1 :CLS#2:PRINTÉ1, 
Le NOUVEAU TEXTE" 

540 PRINT#1,STRINCS(25,"=") 

550 FOR r=0 TO 4:PRINT#L:NEXT 

560 PRINTE1," Confiraation* 
570 PRINT#1," (O/N) ( 
580 la$=INKEYS:la$=UPPERS(la$):1F 1 
a$=*" THEN 580 ELSE IF la$="0* THEN 
FOR t=0 TO 1:t$(t)="":NEXT:1=0:GO0T 
0 590 ELSE IF la$="N" THEN CLS#1:G0 
TO 590 ELSE S80 

590 PRINT#1," TAPER EN MODE DIRECT: 
*:PRINT#1, "MENU=ACCES CURSEUR" :PRIN 
T#1,"KEYS=RETOUR A LA NORMAL (Pave 
Nuserique)":" LE TRAITEMENT 

600 IF 17 THEN FOR T=1-5 TO 1:PRIN 
T "D"; TS(T):NEXT ELSE FOR T0 TO 1: 
PRINT ")"3:T$(T):NEXT 

610 ? 

620 '### MENU UTILITAIRES ### 

630 ? 

640 LOCATE#2,1,1:PRINT#2,"LIGNE Né: 
"4STR$(1):PRINT82 

650 LINE INPUT")>",1$:1F UPPERS(1$)= 
"MENU" THEN 450 ELSE IF UPPER$(14)= 
“KEYS" THEN GOSUB 1390:GO0T0 640 ELS 
E 1=it1:t$#(1)=14$:G0T0 640 

660 ’ ligne + 1 

670 1=i+1:G0T0 640 

680 ? UTILITAIRES 

690 CLS:CLS#1:CLS#2:h=0:b=2:saisie 
47:a-6 

700 TAGOFF:PRINT#1," 
IRES" 


UTILITA 


710 PRINT#L:PRINT#i, STRING$(25,"=") 
720 PRINT#1," - LISTAGE - 
730 PRINT#1," - CHARGER - 
740 PRINT#1," - SAUVER - 
750 PRINT#1," CORRECTION - 
760 PRINT#1," - VISIONNER - 


>RK 
TA 
>BH 


)TC 
)HL 
TE 
>LU 


Y 


JQ 


>EG 


)YY 
DK 
)YE 
>AP 
>2V 





770 PRINT#1," - AIDE - 
780 PRINT#1," -  CHR$ J 
790 PRINT#1," - CENTRER - 


800 PRINT#1," 

810 PRINT#1:PRINT#{, "UTILISEZ ":;CHR 
$(240);" , ";CHR#(241):" ET ESPACE. 
" 

820 IF INKEY(b)=0 THEN a=at1:1F a)= 
13 THEN 3=13:G0T0 820 ELSE 850 

830 IF INKEY(h)=0 THEN a=a-1:1F a(= 
5 THEN a=5:G0T0 830 ELSE 850 

840 IF INKEY(saisie)=0 THEN 870 

850 LOCATE#1,6,a:PRINT#1, ">" :LOCATE 
#1,20,a:PRINT#1,"<":FOR e=0 TO 50:N 

EXT:LOCATE#1,6,a:PRINT#1," ":LOCATE 
#1,20,a:PRINT#1," " 

860 GOTO 820 

870 ON a-4 GOSUB 920,1430, 1530, 1940 
, 2030, 2050, 1300, 1710 

880 GOTO 820 

890 ? 

900 ‘### LISTAGE ### 

910 

920 CLS:FOR r=0 TO 6:PRINT:NEXT 

930 PRINT TAB(18);" 1- Normal" 

940 PRINT TAB(18):"2- Automatique" 

950 1is$=INKEYS:113$=UPPER$(lis$):1 
F lis$="" THEN 950 ELSE IF lis$="{" 
THEN 960 ELSE IF lis$="2" THEN 970 
ELSE 950 

960 CLS:FOR r=0 TO i:PRINT"";rst$(r 
):NEXT:CALL &BB18:G0T0 450 

970 CLS:PRINT" 10 ’"+CHR$(34)ttitrs 
+CHR$ (34) 

980 PRINT" 20 ' Par “iauteuf 

980 PRINT" 30 MODE 2:1INK 0,26:BORDE 
R 26:INK 1,0 

1000 PRINT" 40 WINDOW 17,63,1,25 
1010 FOR r=0 TO i:PRINT 40+(r#10)"P 
RINT"+CHR$ (34) ; 

1020 FOR lo=1 TO LEN(t$(r)):PRINT M 
ID$(t$(r),10,1);:SOUND 1,20,1,15:S0 
UND 1,0,1,15:NEXT:PRINT:NEXT 

1030 CALL &BB18:G0T0 450 

1040 WINDOW 2,51,4,24 

1050 WINDOW#1,53,77,4,22 

1060 WINDOW#2,53,80,24,25 

1070 ? 

1080 ’ xx DESSIN ECRAN #34 

1090 ? 

1100 SYMBOL 253,880, 4E0,&F8,&FE,&FF 
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)X2 
>2C 


JR 
)W 
ik 


>RX 
>FY 
>RZ 
>TN 
>YA 
»YB 
nc’ 
NF 


.&FC, &DE, &C 

1110 SYNBOL 224,0 

1120 ’ CHARGE ECRAN 

1130 PAPER#3, 1:CLS#3:PAPER#3, 0 


1140 LOCATERS,1,1:PRINTÉ#5,"  DIVE 
RS NOUVEAU TEXTE UTILITAIRES 
IMPRESSION FIN 


1150 LOCATE#S,1,2:PRINTES," 


1160 INK 0,13:INK 1,1 
1170 POKE &BE46,10:SYHBOL AFTER 63 


1180 SYMBOL 64,96, 48, 120, 12,124,204 
.118 

1190 SYHBOL 91,418,424,424,818, 80, & 

0,40,80 

1200 SYMBOL 92,0,0,60, 102,96, 102,60 
24 

1210 SYMBOL 93,&k1E, k30, k38, L6C, 438, 

&18,8&F0,40 

1220 SYMBOL 123,12,24,60, 102, 126,96 
.60 

1230 SYMBOL 124,48,24,102,102,102,1 
02,62 

1240 SYMBOL 125,830,418, L3C, &66, k7E 
460,430, &O 

1250 RETURN 

1260 SYMBOL 125,48,24,60, 102, 126,96 
.60:G0T0 1330 

1270 ? 

1280 ? ### CARACTERES ##x 

1290 ? 

1300 CLS:CLS#{1:PRINT" BIDOUILLE : C 
aractères":PRINT:FOR car=126 TO 255 
:PRINT car ;CHR$(car) ; :NEXT:LOCATEH 
1,4:PRINT#1,"No ASCII du CHR$";::LO 
CATE#1,17,4:INPUT#1, "2" ,chc:1F che 
126 OR chc>255 THEN 1300 ELSE CLS#1 
:CLS:PRINT:PRINT" BIDOUILLE : Carac 
teres":PR] 

1310 CLS:PRINT" Redéfinition du pav 
é nuserique:":FOR t=0 TO 9:PRINT" 

*it;"- TOUCHE" :t:NEXT:PRINT:PRIN 

T" VOTRE CHOIX"; :INPUT")",z:IF z=0 
THEN k=15:G0T0 1330 ELSE IF z=1 TH 

EN k=13:G0T0 1330 ELSE IF z=2 THEN 
k=14:G0T0 1330 ELSE 1320 

1320 IF 2=3 THEN k=5 ELSE IF z=4 TH 
EN k=20 ELSE IF z=5 THEN k=10 ELSE 
IF z=6 THEN k=4 ELSE IF z=7 THEN k- 
10 ELSE IF 2-8 THEN k=11 ELSE IF z- 

9 THEN k=3 

1330 KEY 150+z,CHR$(chc):KEY DEF k, 


1 1,150+z 


)LZ 
)1G 
)YC 
>FG 


>PD 


)JA 


1340 CLS:CLS#1:GOT0 590 

1350 ? 

1360 ’##4 TRAITEMENT ERREURS ### 
1370 ? 

1380 FOR r=200 TO O STEP -2:BORDER 
t/10+6,t/10+4:SOUND 1,r,1,15:NEXT:5 
OUND 1,2000,20,15:PRINT"ERREUR LIGN 
E:*;ERL:BORDER 26,6:RESUME 450: CON 
TINUE SANS PROBLEME (COOL!) 

1390 FOR t=0 TO 9:READ ke:KEY 1501t 
+CHRS$(48+t):KEY DEF ke,1,150+t:NEXT 
:GOTO 450 

1400 DATA 15,13,14,5,20,12,4,10,11, 
3 

1410 RETURN 

1420 

1430 ’ ### CHARGEMENT ##4 

1440 ? 

1450 ga=500:CLS:CLS#1 

1460 FOR r=0 TO 6:PRINT:NEXT:PRINT 
TAB(18);" 1- FICHIER ":PRINT TAB({ 
8);"2- FICHIER BASIC" 

1470 lis$=INKEYS:1is$=UPPERS(lis$) : 
IF 113$="" THEN 1470 ELSE IF lis$=" 
1" THEN 1480 ELSE IF lis$="2* THEN 
1500 ELSE 1470 

1480 CLS:üDIR,"#.tex":PRINT"CHAR. NO 
N:°3;:INPUT"®,fh$:1F LEN(fh$)>7 OR L 
ENC(fh$)(1 THEN 680 

1480 OPENIN fh$+".nrl":1INPUT#9,i1:CL 
OSEIN:0PENIN fh$+".TEX":FOR t=0 TO 
1: INPUT#9, t#(t) :NEXT:CLOSEIN:CLS:F0 
R r=0 TO 6:PRINT:NEXT:PRINT TAB(18) 
: "FICHIER" +CHRS#(34)+fh$+CHR$(34)+"C 
HARGE":CALL &BB18:GO0T0 450 

1500 *CHARGEHENT BASIC 

1510 CLS:üDIR, "#. BAT" :PRINT"CHAR. NO 
M2"; :INPUT"®,fh$:1F LEN(fh$)>7 OR L 
ENCfh#$)C1 THEN 680 ELSE RUN"! "+fh$+ 
*. BAT": END 

1520 ’ 

1530 ? 1## SAUVEGARDE ##1 

1540 

1550 CLS:CLS#1 

1560 FOR r=0 TO 6:PRINT:NEXT:PRINT 
TAB(18):" 1- FICHIER ":PRINT TAB({ 
8);"2- FICHIER BASIC" 

1570 13$=INKEYS:15$=UPPERS (134) : IF 
1s$="" THEN 1570 ELSE IF 1s$="1" TH 
EN 1580 ELSE IF 13$-*2" THEN 1610 E 
LSE 1570 

1580 CLS:üDIR, "+. TEX" :PRINT"SAUVEGA 
RDE:NOH:";:INPUT®",fh$:1F LEN(fh$)) 
7 OR LEN(fh$)(1 THEN 680 

1590 OPENOUT fh$+".nrl":WRITE#9, i:C 
LOSEOUT :OPENOUT fh$+".TEX":FOR t-0 
TO i:WRITE#9,t$(t) :NEXT:CLOSEOUT :CL 


>RF 
»YB 
)iC 
>YD 
>GA 


Y 


TQ 


NU] 
>PC 


V 


FX 


Y 


ZB 





S:FOR r=0 TO G6:PRINT:NEXT:PRINT TAB 
(18) ; "FICHIER" +CHRS(34)+fh$+CHR$ (34 
)+ "SAUVE" :G0TO 450 

1600 ? 

1610 ’ ##x# SAUVEGARDE BASIC 1.1 & 1 
.0 ### 

1620 ? 

1630 CLS:üDIR, "#. BAT" :PRINT"SAUVEGA 
RDE:NOH:";: INPUT", fh4:1F LEN(fh$)) 
7 OR LEN(fh$)(1 THEN 680 ELSE OPENO 
UT fh$+".BAT":PRINT#9," 10 ' TEXTE 

2" +CHRS (34) +TITRS+CHRS (34) 

1640 PRINT#9," 20 ’ AUTEUR :"+CHR$( 
34) +AUTEUS+CHR$ (34) 

1650 PRINT#9," 30 HODE 2:1INK 0,26:B 
ORDER 26:INK 1,0 

1660 PRINT#9," 40 WINDOW 17,63,1,25 


1670 FOR r=0 TO i:PRINT#9,STR$(50+( 
r#10))"PRINT"+CHR$(34);t$(r) 

1680 PRINT:NEXT 

1690 CLOSEOUT:CALL &BB18:G0T0 450 


1700 ? 
1710 ' ##x CENTRAGE D'UNE LIGNE #44 


1720 ! 

1730 CLS#1:CLS:FOR t=0 TO 6:PRINT:N 
EXT 

1740 PRINT TAB(18);"{-UNE LIGNE" 
1750 PRINT TAB(18) ;"2-PARAGRPHE" 
1760 co$=INKEY$:co$=UPPER$(cof$):1F 
co$="" THEN 1760 ELSE IF co$="{1" TH 
EN 1770 ELSE IF co$="2" THEN 1870 E 
LSE 1760 

1770 CLS#1:PRINT#1: INPUT#1, "Ligne N 
o:",no:1F no)i OR no(0 THEN 1770 
1780 CLS:FOR it-0 TO 3:PRINT:NEXT:P 
RINT "Ligne No"+STR$(no)+" à centre 
r ":PRINT t#(no) ; 

1790 cen-=25-(LEN(t$#(no))/2) 

1800 PRINT:PRINT " Nouvelle ligne a 
vec centrage:":PRINT:PRINT STRING$( 
cen, 32)+t$(no):t$(no)=STRING$(cen, 3 
2)+t$(no):G0TO 450 

1810 ? 

1820 CLS:FOR t=0 TO 6:PRINT:NEXT:PR 
INT TAB(19):"CENTRAGE ACCEPTE" 

1830 PRINT TAB(19);:" (O/N)" 
1840 co$=INKEY$:co$=UPPER$(co$):1F 
co$="" THEN 1840 ELSE IF co$="0" TH 
EN 1850 ELSE IF co$="N" THEN GOTO 4 


32 


)IK 
)YA 


)YB 
»2G 


DC 


50 ELSE 1840 

1850 t$(no)=STRING$(cen, 32)+t$(no): 

GOTO 590 

1860 CLS:FOR E=0 TO 4:PRINT:NEXT: IN 

PUT" Ligne debut:",1id:PRINT: INPUT 

" Ligne fin:",lif 

1870 IF lidtlif<i OR lid)i OR lif>i 

THEN 1860 

1880 CLS:FOR t=0 TO 6:PRINT:NEXT:PR 

INT TAB(19) ; "CONFIRMATION" 

1890 PRINT TAB(19):"  (O/N)" 

1900 co$=INKEY$:co$=UPPER$(co$):1F 

co$="" THEN 1900 ELSE IF co$="0" TH 

EN 1910 ELSE 1F co$="N" THEN GOTO 4 

50 ELSE 1900 

1910 FOR Ino=lig TO lif:cen=25-(LEN 

(t#(Ino))/2):t$(Ino)=STRING$(centr, 

32)+t#(Ino) :LOCATE 10,5:PRINT"Ligne 

“;ino;"centrée." 

1920 NEXT:CALL 4&BB18:G0T0 450 

1930 ? 

1940 ? ##x CORRECTION ### 

1950 ? 

1960 CLS:CLS#1:FOR t=0 TO 6:PRINT:N 

EXT 

1970 PRINT TAB(19);" CONFIRMATION" :P 

RINT TAB(19):"  (O/N)" 

1980 co$=INKEY$:co$=UPPERS(co$):1F 

co$="" THEN 1980 ELSE IF co$="0" TH 

EN 1990 ELSE IF co$="N" THEN GOTO 4 

50 ELSE 1980 

1980 CLS:FOR e-=0 TO 4:PRINT:NEXT:PR 

INT" Ligne No:";:INPUT"", Ino: 

2000 IF Ino(0 OR Ino)i THEN 1990 EL 

SE PRINT t$(Ino) 

2010 PRINT"Correction:";:INPUT t#(1 

no) 

2020 PRINT"Ligne Né"+STR$(Ino);" Co 

rrigee:":PRINT t$(Ino):GOT0 450 

2030 '### VISIONNER ### 

2040 GOTO 590 

2050 ? suxx## 

2060 ? # AIDE * 

2070 ? sA###444 

2080 CLS:CLS#1:CLS#2:PRINT STRING$( 

22,32)+"AIDE" 

2090 PRINTEW, STRINGS(22,32)+"----" 

2100 PRINT&w," TRAIÏTEÏT va vous ai 

der à taper et iapriser vos 

2110 PRINTéw,"  textes.Pour vous 5 

iaplifier la tache, TRAITEXT pos 

sède 5 parties (Nous allons les déc 

rire) :":PRINTÉY 

2120 IF INKEY$-CHR$(13) THEN 2130 E 

LSE 2120 

2130 CLS:FOR e=0 TO 6:PRINT:NEXT: 
PRINTE," #DIVERS:Vous en 


>HD 


trez le titre du texte et 
votre nos.Vous pouvez régler 
le son et vous pouvez 
ispriser L'AIDE" 
2140 IF INKEY$-CHR$(13) THEN 2150 E 
LSE 2140 
2150 CLS:FOR e-0 TO 6:PRINT:NEXT:PR 
INTéu," #NOUV. TEXTE :Desande con 
firsation;:si oui,le 
texte sera effacé.Si non, 
vous continurez vo 
tre text..." 
2160 IF INKEYS$-CHR$(13) THEN 2170 E 
LSE 2160 
2170 CLS:PRINT:PRINT:PRINTEV, 
n" 
AUTILITAIRES:Cosporte en lui 8 rub 
riques:" 
2180 PRINTÉU," -Le listage":PR 
INTEU," -Le chargement (BASIC 
= FICHIER)":PRINTI,* -La sauv 
egarde (BASIC - FICHIER)":PRINTE," 
-La correction":PRINT&u," 


-Visionner ":PRINTE, -L’ 
aide (REMARQUE :on y est) 
2190 PRINTEU, 
" -CHR$ :HYPE 


R-UTIL:Le pavé nusérique peut 
étre redéfini 
avec des 
CHR$ en ASCII. 
2200 PRINT, 
, -Centrer:C'est 
une rubrique CAPITALE: 
Elle perset de centrer une 0 
u plusieurs lig 
nes.Les lignes seront 
donc sodifiées pour un centrage"; 


2210 PRINTSu," 
) parfait.":PRINTEU, 


(PRESQUE 


2220 IF INKEY$=CHR$(13) THEN 2230 E 
LSE 2220 

2230 CLS:PRINT#w," L' IMPRESSION Per 
set(Si vous possedez une 18pris- à 
nte bien entendu !) de passer votre 

texte sous torse de: 

TEXTE 

NORMAL (Nuserote),LISTING(petit prog 
rasse BASIC) et LETTRE(Non nuser 
ote)" 

2240 IF INKEY$-CHR#(13) THEN 2250 E 
LSE 2240 

2250 CLS:PRINTEv, 
: . La FIN. 


..tLache!) 


>1Q 


>FH 


>HV 


LA 


TH 


v 


HB 


>UH 





Desande, evidesent votre CONFIRMA 
TION, Si Maintenant,s31 vous av 
ez des PROBLEMES,n'esitez pas" 

2260 PRINT, 
” FRANC 

O1S BATUN, SAVAS-MEPIN 

38440 St JEAN DE BOURNAY ou p 
ar TEL: 74.58. 76.30 
(desander Francois) 
22170 IF zozo=45 THEN CLOSEOUT ELSE 
450 
2280 
2290 ' ### NOM AUTEUR+TITRE #44 
2300 ! 
2310 TAGOFF:CLS:CLS#1:CLS#2:FOR e=0 

TO 4:PRINT:NEXT:PRINT TAB(19)+"1-A 
UTEUR+TITRE": 

2320 PRINT TAB(19)+"2-REGLAGE SON 
2330 PRINT TAB(19)+"3-IMPRIMER AIDE 


2340 tr$=INKEYS:IF tr$="" THEN 2340 


2350 IF tr$="{" THEN 2400 

2360 IF tr$="2" THEN 2420 

2370 IF tr$="3" THEN CLS:1F INP(300 

00)=94 THEN PRINT:PRINT:PRINT:PRINT 
:PRINT:PRINT:PRINT:PRINT:PRINT:PRIN 

T TAB(13); "IMPRIMANTE INDISPONIBLE 
"FOR tep=0 TO 3000:NEXT tep:CL5:G 

OTO 450 ELSE w=8:G0T0 2050 

2380 IF tr$-CHR$(13) THEN 450 

2390 GOTO 2340 

2400 ’Auteur+Titre 

2410 CLS:FOR e=0 TO 4:PRINT:NEXT:PR 
INT"Prénon:";:INPUT"",a1$:PRINT"Nos 

"32: INPUT" ",a2$:PRINT:auteu$-ai$+" 

“+a2$: PRINT'Titre:";:INPUT"".tisit 

itr$=UPPER$(ti$) :GOTO 450 

2420 CLS:' ### Son *##4 

2430 LOCATE 1,6:PRINT TAB(19)+"*ENT 

ERS=Fin*:1F vol)>15 THEN vol=15 ELSE 
IF vol(O THEN vol=0 ELSE SOUND 1,4 

0,5, vol:SOUND 1,0,5,vol:PRINT TAB(2 

0)+*Voluse= “:1F vol<10 THEN LÜCA 

TE 27,7:PRINT" "+#STR$(vol)ELSE LOCA 

TE 27,7:PRINT STR$(vol) 

2440 voll$=INKEY#:1F vol>15 THEN vo 
1:15 ELSE IF vol(O THEN vol=0 ELSE 

SOUND 1,40,5, vol: SOUND 1,0,5,0:!F v 

011$="* THEN 2440 ELSE IF voli$=CHR 
$(240) THEN vol=vol+1:GOTO 2430 ELS 

E IF voll$-CHR$(241) THEN vol=vol-1 
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>RC 


>VH 
>NA 
De 
>LM 


>GE 


JE 


LA 


:G0TO 2430 ELSE IF voll$=CHR#(13) T 
HEN 450 
2450 GOTO 2430 
2460 cen=25-(LEN(t#(1))/2):PRINT ST 
RING$(LEN(t$(i))," ")+STRING$ (cen, 3 
2)+t4(1):t$(1)="":t8(i)=STRINGS(cen 
,.32)+t$(no):G0T0 640 
2470 
2480 ' ### IMPRESSION ### 
2490 ? 
2500 TAGOFF:CLS:CLS#1:CLS#2:1F INP( 
30000)=94 THEN PRINT:PRINT:PRINT:PR 
INT:PRINT:PRINT:PRINT:PRINT:PRINT:P 
RINT TAB(13);"IMPRIMANTE INDISPONIB 
LE !":FOR tep=0 TO 3000:NEXT tep:CL 
S:GO0T0 450 
2510 PRINT:PRINT L 
IMPRESSION : Avantages:" 

2520 PRINT" 
2530 PRINT:PRINT 

" 1-No 
lignes apparents 

2-Text iapression BASIC 
3-Lettre(N 


o-STANDAR) 

2540 1mpr$=INKEY$: INPUT impr$:1F in 
pr$="" THEN 2540 

2550 IF iapr$="i" THEN 2580 

2560 IF iapr$="2" THEN 2590 

2570 IF iapr$="3" THEN'2670 

2580 FOR r=0 TO i:PRINT#8,"":rit$(r 
):NEXT:CALL &BB18:G0TO 450 

2590 CLS:PRINT#8," 10 ""+CHR$(34)+t 
itr$+CHR$ (34) 

2600 PRINT88," 20 ’ Par "+tauteut 
2610 PRINT#8," 30 MODE 2:1NK 0,26:B 
ORDER 26:1NK 1,0 

2620 PRINT88," 40 WINDOW 17,63,1,25 


2630 FOR r=0 TO 1:PRINT#8,50+(r#20) 
"PRINT"+CHR$ (34) 

2640 FOR 1o=1 TO LEN(t$#(r)):PRINT#8 
.HID$(t$(r),l0,1); 

2650 NEXT:NEXT 

2660 GOTO 450 

2670 FOR r-0 TO i:PRINT#8," 
r):NEXT:CALL &BB18:G0TO 450 
2680 ? ### FIN ##: 

2690 CLS:CLS#1:CLS#2 

2700 TAGOFF:LOCATE 1,1:PRINT"Fin, CO 
NFIRMATION (O/N)" 

2710 conf$=INKEY#:1F conf#="* THEN 
2710 ELSE conf$=UPPER$(conf$) 

2720 IF conf#$-="0" THEN MODE 2:CALL 
&BCO2 : END 

2730 IF conf$="N" THEN GOTO 450 
2740 GOTO 2710 


"+ts( 


>MH 
)LE 


)YY 


>TH 
)JA 


NJ 
)PJ 
)BJ 
>LP 
>KV 


DAY 
>NA 





EDITIONS SORACOM 
[SORACOM OUVRE SON SERVICE LECTEUR VPC| 


Afin de satisfaire plus directement ses lecteurs, SORACOM ouvre son propre service de vente par correspondance. 


COMPILATIONS CPC 


Vous recherchez les anciens numéros de CPC € 

Vous souhaitez connaître le mode d'emploi de cer- 
tains logiciels du téléchargement ? 

Alors voici les compilations des numéros 1 à 4 et 


5 à 8 de CPC. 
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HAMSTERS EN FOLIE GENERATIONS | 


A PARTIR DE 10 ANS : 

Hamsters en Folie est une simulation économique et 
humoristique qui vous entraîne dans les mystères de la 
gestion d'un élevage de hamsters. 

A vous d'accoupler vos animaux, de vendre des 
hamsters, d'acheter de la nourriture, des cages, des 
magasins, de payer vos loyers et de faire face à toutes 
les dépenses. 3 “ 
Deux niveaux de difficulté. nu FN. RS 
Sauvegarde possible du jeu en cours. 
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Sduttes ë. F| 
petits Em nneomenenemmenl 


FMI Si Cuir 





rages 
HPLC + 


A 


Disponible sur disquette 3" pour CPC 464, 664 et 
6128 au prix de : 225F. 
Réf. : GS 007 CPC 
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* © 
pour Réuss: l'en français et en mathématiques 


8 disquettes bien remplies : 2000 questions — 50 exercices 


pour trouver tout seul 


5+ essai page 1 


Compièt# par ce ou se 


ce chat 
ce vent 


marchand 
rendre 
reposer 
repos 
presser 
nourrir 
fautiler 


Let Gui auf ant 3 un verbe 7 
{0 non 8 où # 





ORTHOGRAPHE CE 


-VouF 

— OU, OUP, US, out 
— EUX, EU, AU, Eau 
-hn,an,m 
—i,is, y, ile, i 

— an, en, ant, am 
— 6, 6, à, ei 


— OÙ, où 
— pluriel noms 


-c,ç 
— accord des adjectifs 


— accord du verbe  —Kéminin en e 


lits, elles 
— présent 


— Rminin des noms 
— noms en le, erle 


— présent avoir, ôte — pluriel des noms en al 


— pres, faire, voir 


— pluriel des noms en ou 


—c, que, ck,S,SS,C -passé composé  — out, lous, tout 


— OÙ - oÙ 

— g ou qu - cou qu 
— avoir au présent 
ao à 

— on ou ont 

— son ou sont 

— Ôtre au présent 
— minin des noms 
— 086 OU 386 

— présent de l'indic. 
— 08 OU 58 

— la, là, l'a, l'as 

— imparfait de l'indic. 
— quand ou qu'en 
— tant, l'en, temps 


-æ,ra;o,10 
— EU, EUX, EU, EU 
— on, om, ont, ond 
— 6, 6e, er 
-1ille 

— les possessits 
— ce, 588 

— cet, cetie 


— 6 ou er 

— leur ou leurs 

— sait sais, c'est 

— P&U, peux, peut 

— près, prèt, pré 

— accord du verbe 

— Sans, s'en, Sens 

— mais, mes, met 

— participe passé en i 
— partic. passé adjectif 
— quel, qu'elle 

— impératif présent 

— part. passé btre-avoir 


— leur, leurs 

— impératif 

— impératif avoir, être 
— imparfait 

- Lur btre, avoir 


rés. 14402 CRC 


ORTHOGRAPHE 6°-5° 


sou à :onouom 

— CS OÙ 885 

— présent de l'indicatif 

— verbes en @ler ou eter 
— plunel en eaux ou aux 
— PEU, peux, peut 

— Imparait de lindicatt 

— verbes en or, ger, uer 
— son ou sont 

— près, prêt, pré 

— ©, œtie, ont 

— passé composé 

— l'a, le l'es, là 

— OUX, ous 

— d'est, c'est, sus 

- vertes 

— passé ample de l'indicatif 
— les préires 


— EUX OU, eus 

— 2000"d du verbe 

— Ltur de l'indicatt 
— tous, tout, butes 

— format du part pes. 
= m'ama ; m'ontmon 
— condition. présent 
- même 

— Mes, mes, m'est 
— leur, leurs 

— impératt présent 
boue ;toui 

— plutôt ou plus tôt 

— les nombres 

— subjonctf présent 


—Soury nm ouny 
— quel ou qu'elles 

— avr et ête 

— dans, d'en, dent 
— forme passe 

— sans, gen, sent 
— futur antérieur 

— nom ou verbe 

— Quand ou qu'en 
— pertcpe passé 





- Elaborés par une équipe d'enseignants et d'informaticiens 

- Testés dans de nombreuses écoles de Loire-Atlantique (lire CPC n° 
35 - Juin 1988). 

— L'expérience montre qu'après 15 à 30 heures de travail la plupart 
des élèves font dans leurs dictées moins de 10 % d'erreurs sur l'en- 
semble des règles de la disquette 

1) En cas d'erreur, l'ordinateur pose des questions qui aident à trouver 
la bonne réponse. Sa méthode fait appel au raisonnement plus qu'à la 
mémoire. 

2) L'ordinateur chronomètre le temps de réponse. Si ce temps est 
supérieur au temps normal l'ordinateur l'avertit que s'il ne répond pas 
plus vite il continuera à faire des fautes dans ses dictées. 

3) Les résuhats sont enregistrés pour encourager l'élève. I! peut voir 
que plus il travaille, plus le nombre de règles acquises augmente. 


ORTHOGRAPHE 4°-3° 


— passé antérieur 
— del & èet 

— impératif prés. 

— 6/e/è 

— mpératf prés. 

— pronoms relaits 
—…Oir eur 8. 

— V. en C8r-ger 

— homer les adv. 
— P. présent/adi. v. 
— accord tout même 
— voie passive 

— queks)/qu'elle 

— cond. présent 


- mparfait, indic. 
-m-on 

— imparfait indic. 

— à0001d p. passé 
— prés. v. irrégui. 

— 106/c65/c'-4 e6t 
— passé simple ind. 
— ad. de couleur 

— mp. OU pass. 8. 
— verbe ou p. passé 
—imparf /pass. s. 

— accofd nu-demi 
- Lur anbrieur 

— quelque quoique 
— passé antérieur 
— acoo!d p. passé 


— accord p. passé 
— cond. présent 

— temminaison mots 
— cond. passé 

— plur. noms comp. 
— cond. passé 

— temminaison mots 
— verbe asseoir 

— a0co"d p. passé 
— Subj. présent 

— mots en ….lé dé 
— subi. imparfait 

— masc. où féminin 
— v. particuliers 


8128 
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VOCABULAIRE CM 
























—homonymes — pendu — placer des mots 
— contraires — pendu — placer des mots 
— synonym 86 — placer des mots —homonymes 

— sens prop.figuré  — placer des mots —homonymes 

— préfixes — placer des mots — synonymes 

- suffixes — contraires - contraires 

- kamiles — synonymes — raane des mots 
- suffxes — contraires — Sens xPrE6SIONS 
— verbes/noms — placer des mots — dérivés 

- adectits — placer des mots — placer des mots 
— adverbes — placer des mots — racine des mots 
— noms de métiers  — placer des mots — adverbes 

— adjectisWerbes  — placer des mots — contraires 

— paronymes — placer des mots — synonymes 

— placer des mots  — ” = 

— placer des mots  — « 


6128 
réf, 14404 CPC 





CONJUGAISON 


— temps des verbes 
— présent v. en er 
— présent v. ævorr 
— présent v. être 
— son présent 


— tévson : aller, tare. 
— verbes en r 3 emps 
— voir (3 temps) 

— IMmpartait v. en er 

— 20006 p. p. être 


— impartart nd. 

— passé ample er-r 
— passé ample 

— passé ample 

— passé composé 


pour donner le moral 


RESULTATS ORTHOGRAPHE CM 
nombre de regles ACQUISES 


2 
1 
1 


1 
12 
1 


SERGE 
Pourcentage d'erreurs 





—! _ : 
+ + 
0 2 3 4 0 1 


1 


temps de travau en neures 
Vou élève suvant tapez sur à eleve preceñent tapez À 


pour vou les résultats pa’ régle tapez sur ENTER 





LES 4 OPERATIONS 


— table d'additon de 2 

— table d'additon de 3 

— table d'acditon de 4 

— table d'additon de 5 

— table d'additon de 6 

— table d'edditon de 7 

— table d'additon de 8 

— table d'acditon de 9 

— addition CP niveau 1 
— sgditon CP nveau 2 
— sdion CE 1 niveau 1 
— sdton CE 1 niveau 2 
— sgditon CE 2 niveau 1 
— agdton CE 2 niveau 2 
— sdion CM1 niveau 1 
— sdton CM1 niveau 2 
— sgdton CM2 niveau 1 
— sgdton CM2 niveau 2 
— mustrac. CE 1 riveau { 


- muibpie CE nveau 2 
— muitphe CE2 nveau | 
— mumpie. CE2 nveau 2 
- mutpic CM1 nveau 1 
- mutpie CM1 mveau 2 
- mutpic. CM2 niveau 1 
— mubphc. CM2 niveau 2 
— dvmon CE2 niveau 1 
— dusion CM1 niveau 
— dvision CM1 niveau 2 
— dvsion CM1 niveau 3 
— duson CM2 niveau 1 
— dvision CM2 niveau 2 
— dvrsion CM2 niveau 3 


- mustac CE veau 2 
- mustac CE2 nveau 1 
- mustac CE2 nveau 2 
- mustec CM! nveau 1 
- mustec CM1 veau 2 
— mustrec CM2 veau 
— sustrac. CM2 mveau 2 
— table de muitplic. per 2 
— table de muitplic. per 3 
— table de mubplic. per 4 
— table de muttplc par 5 
- table de muitpic per 6 
— table de muibplic par 7 
— table de muftphic. per 8 
— table de mutpic per 
— mutbphc. CE 1 niveau 1 





MATHEMATIQUES CM 


— écrre un nomb. en chi 
— nomb. préc., suwant 
















— dbamaux : écr., comper. … — rangement des déc:- 
— fractons maux 










— rangement nomb. ent — calcul ments 3 — placer un nombre 1 
— décomposttion — encadrement des déc. — placer un nombre 2 
— chiftre des dizaines — Mure 0e temps — encadr. des décm aux 
— somme de 3 nombres — écriture des enbers —berrer les xros inut- 
— rémsion 1 — les puissances les 
— som. de 4,5, 6,7 nomb.  — décomposon 1 — révision 2 
— smustracton (propétés)  - décomposton 2 — mesures de longueur 
— Calcul ments 1 — rangement — Mesures de masses 
— écnre grands nombres — plaoër un nombre — mesures de capac tés 
— rémon 2 — réneon ! — monnwe 
— mesures de longueur —fractons ; équvsiencs  -les res 
— mutbplic. (propnétés) — fractons et décimaux — volumes et capacités 
— calcu| ments 2 — mubp. per 10, 100, 1000 durée 
— mulbples et dmiseurs — décompositon des déc. 
— Quobent et reste 
— mesures de masse TIRE 

révision 3 SE "6128 

réf. 14400 CPC 


— emploi ls-eles 
— tu ven er 
— es v. avor 
— Mt v. être 
— vsion futur 
— passé © v.en er 
— passé © v. evar 


— Imparart v. en ir 

— Impartat drers 

— mpartat drvers 

— émson impart 

— Impérat présent 

— Impératif présent 

— impératf présent 

— former pertaps passé 
— M. parbouiee 

— présent ind. 


— plus-que-pertat 

— Impératt présent 

— mbontc présent 

— Cond. présent 

— monctt présent 
— verbes en yer 21 er 
— verbes en cer ger 


[L:104 3 


la disquette 3” 


pour 
464/664/6128 





Deere], 





DeZATere]}, 


GU 550323 
GU 550283 
GU 550303 
MC 15 CPC 
MC 18 CPC 
MC 20 CPC 


GU 553463 
GU 553443 
GU 553603 
GU 553623 


La4 01 CPC 
La4 02 CPC 
La4 03 CPC 
La4 04 CPC 
L44 05 CPC 
La4 06 CPC 
La4 07 CPC 
La4 00 CPC 


GU 550104 
MC 13 CPC 
MC 11 CPC 
MC 12 CPC 
MC 208 CPC 


MC O1 CPC 
MC210 CPC 
MC 02 CPC 
MC 200 CPC 


MC 19 CPC 


MC 07 CPC 
MC 206 CPC 
MC 08 CPC 
MC 207 CPC 
MC 09 CPC 
MC 10 CPC 
MC 14 CPC 
GU 01 CPC 
GU 03 CPC 
GU 02 CPC 
GU 004 CPC 
GU 005 CPC 


GU 553283 
GU 553343 
GU 553303 
GU 553323 
GU 553403 
GU 553263 
GU 553383 
GU 553423 
GU 553363 


G5 001 CPC 
G5 002 CPC 
G5 003 CPC 
G5 004 CPC 


: G5 005 CPC 


GS 006 CPC 
G5 007 CPC 


MATERNELLE 


APPRENDS-MOI A LIRE 
APPRENDS-MOI A COMPTER 
APPRENDS-MOI A ECRIRE 
EDUC MATERNELLE 1 
EDUC MATERNELLE 2 
LECTURE CP 


“Collection Micropoche Ecole” 
J' APPRENDS A LIRE 
J'APPRENDS A ECRIRE 
J'APPRENDS LES NOMBRES 
J'APPRENDS À OBSERVER 


“Collection Réussir” 


ORTHOGRAPHE CE 
ORTHOGRAPHE CM 
ORTHOGRAPHE 6/5ème 
VOCABULAIRE CM 
LES 4 OPERATIONS 
CONJUGAISON 
ORTHOGRAPHE 4/3ème 
MATHEMATIQUES CM 





PRIMAIRE 


FRANÇAIS CE1/CE2 (aide à la lecture) 
FRANÇAIS CM 
ORTHO CM 
FRANÇAIS SONS CP/CE1/CE2 
FRANÇAIS SONS CP/CE1/CE2 (K7) 


“Mathématiques” 
MATHS CE 
MATHS CE (K7) 
MATHS CM 
MATHS CM (K7) 


“ 


Géographie” 
GEOGRAPHIE PRIMAIRE 


1YGBE 


“Mathématiques” 
MATHS SECOND CYCLE 1 
MATHS SECOND CYCLE 1 (K7) 
MATHS SECOND CYCLE 2 
MATHS SECOND CYCLE 2 (K7) 
GEOMETRIE PLANE (4ème à terminale) 
ESPACE ET SOLIDES (1re à terminale) 
EXAMS - Tous niveaux 
FONCTIONS NUMERIQUES (avec CP/M) 
CREER ET JOUER AUX MATHEMATIQUES 
STATISTIQUES (1re à terminale) 
MATRICE (à partir de la terminale) 
POLYNOMES (à partir de la terminale) 


“Micro Bac” 


MICRO BAC FRANÇAIS (re à terminale) 

MICRO BAC MATHS B 

MICRO BAC MATHS C/E 
MICRO BAC MATHS D 

MICRO BAC PHYSIQUE/CHIMIE 

MICRO BAC ANGLAIS 

MICRO BAC ESPAGNOL 
MICRO BAC HISTOIRE 

MICRO BAC GEOGRAPHIE 


“Collection Génération 5” 


DESTINATION MATHS CE1/CE2 
DESTINATION MATHS CM1/CM2 
DESTINATION MATHS 6/5ème 
TROUBADOURS (à partir de 9 ans) 
LES 4 SAISONS DE L’ECRIT CE/CM 
LES 4 SAISONS DE L'ECRIT 6/3ème 
HAMSTERS EN FOLIE (niveau junior) 





Plus de 100 logiciels éducatifs 


COLLEGE 


GU 555204 
GU 555184 


GU 554784 
GU 554744 
GU 554764 
GU 554704 
GU 554664 
MC 17 CPC 
GU 556404 


MC 03 CPC 
MC201 CPC 
MC 22 CPC 
MC 09 CPC 
MC 21 CPC 
MC 202 CPC 
MC 04 CPC 
MC 05 CPC 
MC 06 CPC 
MC 205 CPC 


GU 553563 
GU 553543 
GU 553523 
GU 553583 
GU 553483 
GU 553503 


GU 552783 
GU 553683 
GU 553663 


GU 553823 
GU 553703 
GU 552883 
GU 553783 


GU 555244 
GU 555224 
GU 552923 
GU 553003 
GU 550403 
GU 553243 
GU 339 CPC 
GU 340 CPC 
GU 379 CPC 


GU 553023 
GU 550383 


GU 550363 
GU 554384 


MB 001 CPC 
MB 002 CPC 
MB 003 CPC 
MB 004 CPC 
MB 005 CPC 


GU 557064 
GU 557084 
GU 557104 
GU 557124 


“Français” 
ECRIRE SANS FAUTES (vol. 1) 
ECRIRE SANS FAUTES (vol. 2) 

# 


“Série gram. lanque francaise” 
LANGUE FRANÇAISE 6ème 
LANGUE FRANÇAISE 5ème 
LANGUE FRANÇAISE 4ème 
LANGUE FRANÇAISE 3ème 

LANGUE FRANÇAISE 6/5ème regroupé 

GRAMMAIRE 6/5ème 
AVENTURES DE MONTE CRISTO 6/3ème 


‘. 


‘Mathématiques’ 
MATHS 6 
MATHS 6 (K7) 
CALCUL RAPIDE 
GEOMETRIE 
MATHS 5 
MATHS 5 (K7) 
MATHS 5/4 
MATHS 3 
EQUATIONS 
EQUATIONS (K7) 


“Collection Micro Poche” 


FRANÇAIS REUSSITE 6ème 
FRANÇAIS REUSSITE 5ème 
FRANÇAIS REUSSITE 4ème 
FRANÇAIS REUSSITE 3ème 
MATHS SUCCES 6ème 
MATHS SUCCES 5ème 


“Sciences” 


A LA DECOUVERTE DE LA VIE 6/5ème 
A LA DECOUVERTE DE L'HOMME 4/3ème 
A LA DECOUVERTE DE LA TERRE 4/3ème 


“Histoire - Géo” 


OBJECTIF MONDE n°1 (milieux naturels) 
OBJECTIF MONDE n°2 (Am. lat., Afr., Asie) 
OBJECTIF EUROPE 
OBJECTIF FRANCE 


“Anglais” 

ANGLAIS COLLEGE DEBUTANT 6/5ème 
ANGLAIS COLLEGE CONFIRME 4/3ème 
VISA POUR HYDE PARK 6ème 
BALADE AU PAYS DE BIG BEN 6/5ème 
ENIGME A OXFORD 4/3ème 
BALADE AU PAYS DE L'ANGLAIS 
GRAMMAIRE ANGLAISE 6ème 
GRAMMAIRE ANGLAISE 5ème 
GRAMMAIRE ANGLAISE 4ème 


“Allemand” 


BALADE OUTRE-RHIN 6/5ème 
ENIGME À MUNICH 4/3ème 


# 


“Espagnol” 


ENIGME À MADRID 4/3ème 
BALADE EN SOUS-SOL A SEVILLE 


“Micro Brevet” 


FRANÇAIS 
ALGEBRE 
GEOMETRIE 
HISTOIRE 
GEOGRAPHIE 


“Collection Multicours” 


MULTICOURS 6ème 
MULTICOURS 5ème 
MULTICOURS 4ème 
MULTICOURS 3ème 








DES LOGICIELS NIVEAU MATERNELLES, PIRIMUAURIE ET SECONDAIRE 








NIVEAU MATERNELLE 
ET PRIMAIRE 


EDUC-MATERNELLE-1. 


QUXNEERENES 
MC15 CPC disk 200 F 








Logiciel orienté sur la reconnaissance de la graphie des lettres et 
des nombres. 


— Apprentissage des lettres de l'alphabet avec image associée à 
chaque lettre. - Apprentissage des nombres de | à 9 


EDUC-MATERNELLE-2. NIVEAU 
MATERNELLE CP. 





MC 18. CPC disk 200 F 


- Reconstituer des séries d'images. - Reconstituer des 
mots. - Reconstituer des séries de nombres de | à6 


l'enfont exerce son esprit d'analyse et découvre les règles qui 
régiront ses premiers apprentissages comme l'organisation du tra 
vail écrit sur une page, le sens de la leciure et de l'écriture, le re 
tour à la ligne 


MATHS-CE. NIVEAU CE1 CE2. 


MC 01 CPC disk200F 
 MC210CPCK7170F 


Ce logiciel propose plusieurs points d'exercices de niveau cours 
élémentaire 





- Ranger des nombres en ordre croissant et décroissant - Com 
parer des nombres [supérieur inférieur) sommes produits - Comp- 
ter pas à pas (1, 2, 5, 10, 20, 40...) - Calculs sur les opéra 
tions élémentaires [tableau de double entrée) - Compter la mon 
noie - Lire et oHicher l'heure - Déplacer une lorue [exécuier et 
retrouver] - Symétries oxioles 


 MCO2CPCdIsK250F 
MC 200 CPC K7 200 F 


Ce logiciel comprend des modules sur les calculs (opérations, 
fractions} ou lo géométrie {symétries sur repère othonomé avec 
possibilité de construction de figures...) - Opérations verticales 
sur des entiers [avec retenue) - addition — soustraction — multipli 
cation : division 

— Fractions simples : 

— sur des parties de rectangles, de camembers -— fractions équi- 
valentes - numéroteurs d'une fraction 

- Colculs d'oires : 

- carré - rectangle 
reur 

- Calculs de volume 
— Symétrie (centrale et axiale) 
- Suites proportionnelles 

- Pourcentages 





ovec explication des formules en cas d'er- 





FRANÇAIS-SONS. NIVEAU CP CEi CE2. 
__ MC2BCPEK7ITF | 









1 - Compléter des mots avec les sons ou syllabes qui convien- 
nent avec choix entre deux sons ressemblants 


2 - Compléter des phrases avec des mots à choisir dans des 
séries de même consononce 


3 - Sélectionner dons des phrases les mois ayant les sons indi 
qués 

Une série de sons avec niveau de difficulté progressif peuvent 
convenir aux élèves des classes de CP pour l'option 1 et aux 
élèves de CE1 CE2 pour les options 2 et 3 





ORTHO-CM. NIVEAU CE2 CM1 CM2. 
“MC 11 CPC disk 200 F 


Ce logiciel permet d'apprendre les règles principales de l'ortho- 
graphe en complétant des phrases [19 règles ex : à ou a, on ou 
ont.….] 


A chaque faute, une explication est donnée à l'élève sous lo 
forme d'une question de remplacement qui lui permettra de com 
prendre son erreur. À lout moment, cette règle pourra être affi- 
chée pour explication 






FRANÇAIS-CM. NIVEAU CM1 
AUEDUULER 
MC 13 CPC disk 200 F 


1 — Dictée : cette option permet à un instituteur ou à un parent de 
dicier un texte à l'élève avec correction automatique après une 
ou deux faules sur chaque lettre [ou choix} et avec co plage des 
fautes 

Un fichier niveau CM] CM? de 20 dictées est fourni avec ce lo- 
giciel mais une option de création permet de créer des dictées 
de tout niveau 

Une option lecture permet également de lire les textes de ce fi- 
chier 

2 - Porticipes passés avec ÊTRE et AVOIR : Ceïe option permet 
d'apprendre à accorder les participes passés avec les verbes 
ÊTRE et/ou AVOIR avec sujet, complément d'objet direct ou indi 
rec!, masculin ou féminin, singulier ou pluriel 

A choque foule, une explication du corrigé sera visualisée 

Un fichier de phrases est également fourni, ainsi qu'une option 
permetont lo création de ses propres fichiers d'exercices 


3 - Conjugaison : ce module permet à l'élève d'apprendre à 
conjuguer les verbes des 3 groupes aux temps de son choix [im 
portait, futur antérieur, présent...) sous la forme de phrases à 
compléter 

A choque foule, une explication sero visualisée et le comptage 
de points apparañra à la fin de l'exercice 


GEOGRAPHIE-PRIMAIRE. NIVEAU 


PRIMAIRE. 
Ë MC19CPC disk 200F. 


Cours et exercices suivant niveau 

Le Soleil — La Terre - Les points cardinaux -— Les saisons — Le relief 
- Les cours d'eau et les mers en France - Les ports en France 
- Les grandes villes - Les pays frontaliers 





_LECTURE-CP - NIVEAU MATERNELLE CP 


MC 20 CPC disk 200F 


Logiciel permettant de familiariser les tous jeunes lecteurs à la re- 
constitution, la comoréhension et la structure d'une phrase 








NIVEAU 
SECONDAIRE 


GRAMMAIRE-65. NIVEAU 6EME 5EME. 


MC17.CPC disk 200F 


Ce logiciel traite des notions de fonctions et naîure des groupes 
de mots conslituant la phrase (sujet, verbe, complément ….} 

- Apprentissage avec rappel de cours adapté à chaque situation 
— Révision générole 

Les 220 phrases contenues dans ce logiciel sont réparties en 
2 niveaux et couvrent plus de 1400 questions. Au niveau 1, l'uti- 
lisateur peut commencer en CM2 





MATHS-6. ALGEBRE 
POUR LA CLASSE DE 6EME 

MC03CPC disk 200F 

MC201 CPCK7170F 


— Opérations + - X / - Fractions - Calculs d'aires - Cakuls sur 
les relatifs - Pourcentages avec graphismes - Suites proportion- 
nelles avec graphisme - Symétries othogonales 








DTA LEATETE TE 
{NOUVEAU PROGRAMME) 

 MC21CPCdisk200F 

 MC202CPCK7170F 


Fractions - Nombres relatifs - Volumes - Echelles et vitesses — 
Angles - Symétries centrales 








MATHS-54. ALGEBRE 


POUR LES CLASSES DE 5EME ET 4EME. 
_  MCO4CPC200F 








— Multiples et diviseurs d'un entier - Nombres premiers — Puis 
sances d'un entier naiurel - Décomposition d'un entier naturel 
- P.GC D. et P.P.C M. - Colkculs algébriques 
- Rationnels {simplifications et opérations de fractions) - Equo- 
tions et inéquations dans R 

37 









MATHS-3. ALGEBRE 
POUR LA CLASSE DE 3EME. 
| MC 05 CPC disk 200F 


- Constructions de vecteurs — Calculs sur les droites - Systèmes 


linéaires 2,2 Pre du plon - Calculs sur les racines 
carrées - Notions de trigonométrie 


EQUATIONS. ALGEBRE POUR LES 
EOOUE EU 


:...MCD06 CPC disk 200 F 
MC205 CPCK7170F 





— Equations du second degré avec interprétation graphique — Sys- 
tème linéaires 2.2 - Systèmes linéaires à n équations p inconnues 
! 

{n,n<8) 


MATHS SECOND CYCLE-1. NIVEAU 
SECONDES A TERMINALES 
: MCO7 CPC disk 250F 
MC 206 CPC K7 200 F 


— Equations du second degré avec interprétation graphique - Courbe 
Y — HX) ovec choix du repère et des unités — Intégrales par la mé- 
thode des reclangles avec interprélation graphique et exercices 
- Suites récurrentes avec graphisme - Fonctions réciproques 





MATHS SECOND CYCLE-2. 
ALGEBRE POUR LES CLASSES DE 
SECONDES A TERMINALES 
MC 08 CPC disk 200 F 

MC207 CPCK7170F. 


-— Images por application affine - Courbes avec options {dont 
hardcopy} - Courbes superposées - Courbes définies par mor- 
ceoux - Familles de courbes - Courbes planes [cinématique] 
- Courbes définies par une intégrale 





GEOMETRIE PLANE. NIVEAU 4EME 
CAN: 





MC 09 CPC disk 200 F 


Deux logiciels accompagnés d'explications délaillées : 

— Un utilitaire de dessin géoméirique pour tracer points, droites, 
segments et cercles, le dune <TRACER à la règle et au com 
pas» accompagné de commentaires et de tous les résullots de 
géométrie analytique. Une figure peut être sauvegardée ou impri 
mée 


Huit exemples classiques de constructions géométriques accom 
pagnent cet utilitaire (bissecirices, tangentes….) 

— Une étude par le dessin des TRANSFORMATIONS GEOME- 
TRIQUES [tronslations, homothétie, rotation, symétrie axiale et cen- 
trale, similitude) sur des figures simples (carré, triangle, losange.) 


ESPACES ET SOLIDES. NIVEAU PREMIERE 
ARLES 





MC10 CPC disk 200 F 





Dessin géométrique dans l'espace : Uliilitaire de dessin pour tra- 
cer points, droites, segments et plans accompagnés de commen- 
aires éveniuels avec possibilité de sauvegarde et d'impression 
Lo partie importante est la perspective choisie — La perspective 
«fil de fer» qui permet de relaire le tracé sous des angles diffé- 
rents — La perspective avec les plans colorés qui donne une meilleure 
visualisation. 

Une représentation de SOLIDES dans l'espace avec : Entrée du 
solide de votre choix — Impression de fichiers de données - Choix 
des ongles de perspectives - Des exemples de solides {solides 
de PLATON, étoile de KLEPER...] 


EXAMS. TOUS NIVEAUX. 


MC 14 CPC disk 200 F 








Ce logiciel comprend une partie Questionnaire à choix multiples 
et une partie Liste de vocabulaire 

QCM 

Permet de tester ses connaissances 

— 3 fichiers de culture générale 

— 1 fichier sur la Révolution française 

— | fichier sur lo langue anglaise 

VOCALIST 

Permet de tesier ses connaissances sur les longues 

— 3 fichiers ANGLAIS-FRANCAIS 

l'est possible de créer ses propres Q.C.M. sur tous sujets ainsi 
que ses propres VOCALIST sur les langues 


S 
2 
6 
u) 
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Pour chaque article, entourez le ou les n° choisis. 

ANCIENS Nos AMSTAR & CPC 

N°26-27 -28-29-30-31- 32-33-34 25 F {unité} Franco 
35-36-37 26 F (unité) Franco 
DISQUETTES AMSTAR & CPC 

N°20-21-22-23-24-25 Abonné 110 F (unité) Franco 
{une disquette réunit 2 numéros consécutifs d'Amstar & CPC) Non abonné 140 F (unité) Franco 
ANCIENS Nos AMSTAR 
IN°S-6-8-9-10-11 15 F (unité) Franco 
‘12-13-14-15 18 F (unité) Franco 
16-17-18-19-20-21 20 F {unité} Franco 
22-23-24-725 22 F (unité) Franco 
 DISQUETTES AMSTAR 

N° 1 (du n° 1 au 8 inclus) - N° 2 [du n° 9 au 16 inclus) 110 F (unité) Franco 
N°3 (du n° 17 au 25 inclus) 

ANCIENS Nos CPC 

N°10-11-13-16-18 - 20 - 23 - 24 - 25-26 25 F {unité) 

27-28-29 -30-31 -32 - 34 - 36 - 37 

ANCIENS Nos HORS-SERIE CPC 

N°4-6-8-9-10-11-12-13-14-15-16-17 15 F (unité) Franco 
DISQUETTES CPC ET DISQUETTES HORS-SERIE CPC 
N°1-2-3-4-5-6-7-8-9-10-11-12-13-14-15-16-17 

18 - 19 (une disquette réunit 2 numéros consécutifs de CPC) Abonné 110 F {unité) Franco 
HS1 - HS2 - HS3 - HS4 - HSS - HS6 - HS7 - HS8 - HS9 

HS10 - HS11 -HS12 - HS13 -HS14-HS15 -HS1é-HS17 Non abonné 140 F {unité) Franco 
ABONNEMENT 6 DISQUETTES (non rétroactif) Franco 
DISQUETTES “ARCADES” + câble (nouvelle édition) Franco 
{Kit Téléchargement AMSTRAD CPC) 

LOGICIELS EDUCATIFS - LIVRES - DIVERS 
Forfait port + 10 F par logiciel et 10 % pour livres 
Pour tout envoi par avion : pour DOM-TOM et étranger Q Facultatif : recommandé + 10 F par commande 
supplément forfaitaire de 10 % par article MONTANT GLOBAL 


DezZ\ere/|. 























Je joins mon règlement :  Q chèque bancaire  Q chèque postal  Q mandat 
PAYEZ PAR CARTE BANCAIRE Nom : 
baton ip pl Adresse : 
Date d'expiration Signature 
inscrire les numéros de la carte, la dale et signer} Code Postal : Ville : 
ECRIRE EN MAJUSCULES 











Date Signature 


Afin de faciliter le traitement des commandes, nous remercions notre aimable clien- 
#le de ne pas agraler les chèques, et de ne rien inscrire au dos. 





Commande : L'a commande doit comporter bus les renseignements demandés sur le bon de commande (désignation ou rélérence si celle-ci existe). Tous absence de précisions est sous La responsabilité de l'acheteur. La vente es 
condue dès accsptafon du bon de commande par notre soabté, sur les artides disponibles uniquem ent. 
Les prix : Les prix indiqués sont valables du jour de la parution du catalogue jusqu'au mois suivant ou au jour de parution du nouveau Catalogue, sauf erreur dans le Ebelé de nos tarils au moment de la fabrication du catalogue, et de 
vañation de prix mportante des fournisseurs. > 
| Livraison : La liaison intervient après le règlement Les délais de Imraison étant de 10 à 15 jours environ, SORACOM ne pourra être tenue pour responsable des retards dus aux tansporteurs ou aux grèves des services poslaux. 
Transport : La marchandise voyage aux risques et périts du desénatare. La livraison se faisant par coës postal ou par transporteur. Les prix indiqués sur le bon de commande sont valables sur toute la France métropol Laine, + 20 F par 
arücie pour Outre-Mer par avion et au-dessus de 5 kg nous nous réservons la possibifté d ajuster le prix de w'ansport enfoncton du coût réel de cælui-ci. Pour bénéficier de recours possible nous invitons notre aimable dientèle à oplar pour 
l'envoi en recommandé. À récepion des paquets, loute détérioraton doit ètre signalés. 


a 











EN: Te lN INT A Le: 


A CPCHS 


OFFRE EXCEPTIONNELLE 
pour 6 numéros (1 an) 


90 FF 


OUI je veux bénéficier de l'offre exceptionnelle d'abonnement à CPC HS. Je désire recevoir 
ma disquette téléchargement ARCADES à l'adresse suivante. 


Nom :_ 
Adresse: _ >: 





_ ; Prénom : 








Code postal : 








Date 





Signature : 





Je joins à cet envoi, mon règlement de 90 F au nom de : 


Editions SORACOM - La Haiïe de Pan - 35170 BRUZ. 


(Les abonnements ne sont pas rétroactifs] 


HORS-SERIE 18 







Q 140 F non abonné 
Q 110 F abonné 
































ANCIENS NUMEROS 










LEE 
[+ HORS-SERIE 
Q n° 4, 6,7,8,9,10, 11,12, 13, 14, 
p 151617 15F 
L - DISQUETTES HORS-SERIE 
D HS 1, 2, 3, 4, 5, 6,7, 8,9, 10, 
140 F 


1 14, 12, 13, 14,15, 16,17 


Ë Chaque disquette comporte tous les programmes du n° hors-série cor- 
respondant. Les abonnés à CPC bénéficient du tarif unitaire de 119 F 
pour les disquettes. 














| Nom: Prénom: : Enon : Prénom : 
Adresse : _ l Adresse : 

| Code postal Ville : Code postal : Ville : 

| Date: Signature s ! Date : Signature 
| I Entourez le(s) numéro(s) choisis. 


Merci d'écrire en majuscules. Ci-joint un chèque libellé à l'ordre des Edirons SORACOM. Retournez le(s) coupon(s) ou une photocopie à Editions SORACOM - La Haie 


de Pan - 35170 BRUZ. 








Media Box 






DISQUETTES 5 1/4" (F) 
182 x 178 x 348 mm 
714 x7 x 1334" MEDIA Box 
CASSETTES 
VIDEO (L) 
° 310.507. 
# à 222 x 135 x 348 mm 
Pour 70 disquettes 5 1/4"au maximum. Se 83/4 x 51/4 x 133/4 

Livré avec des séparations à index. of NÉ D Sas 


Pour 9 cassettes 





Vidéo VHS, 
V2000, Betamax 
Media Box 
COMPACT DISC (M) Media Box 
148 x 135 x 348 mm DISQUETTES 3"-3 1/2" {L) 
53/4 x 51/4 x 133/4" 221 x 135 x 348 mm 


83/4 x 51/4 x 133/4" 






N° 310.502.6 
Pour 13 Compact Discs simples N° 310.506.4 
Pour 150 disquettes 3"-3 1/2" au maximum. 
Livré avec diviseurs réglables à volonté. 


D. 


Media Box COMPACT FH + port 
DISC PP £ 25 FF unité 


MULTI (D) Media Box 
148 x 177 x 348 mm - MINI-CASSETTE (S) 

53/4 x 7 x 1334” 148 x 91 x 348 mm 
53/4 x 31/2 x 133/4 
R N° 100.525.0 

Pour 23 CD Simples ou 11 CD Doubles ou 
11 CD-Magazines même panachés car les 
parois sont amovibles. 


N° 310.503.3 


Pour 16 Mini-cassettes, Cassettes de données ou 
MSX ROM /RAM Cartridges 


COLLÈGE EX 








Chose tre 7 





POUR CPC 6128 EXCLUSIVEMENT 


Français : amélioration de la vitésse de lecture et Français : perfectionnement de la lecture regrou- Français : maïtrise de la lecture avec le support Français : test de performance de lecture suivie, 
de la compréhension du texte autour d'exercices pant lecture et recherche, anticipation mais aussi d'un texte riche et une variété d'exercices de com- qualité de compréhension, appréciation du sens et 
variés et amusants. interprétation. préhension, d'analyse et de logique. du style grâce à une pédagogie active. , 

Sciences naturelles : une initiation à la démar- Sciences naturelles : initiation à la biologie ani- Sciences naturelles : découverte de la Terre et Sciences naturelles : une initiation à la biologie 
che scientifique et aux lois biologiques du monde male et végétale à travers l'alimentation, le sys- de son histoire à travers les grands phénomènes humaine apprenant à observer et à interpréter les 


vivant abordée avec des mots simples. tème de respiration, le mode-de reproduction ou géologiques abordés grâce à des textes de con- comportements de notre coms. 

Géographie : découverte de la variété des milieurs de locomotion. naissance, des animations. Géographie: analyse de cartes et interprétation de 

naturels etinitiation à l'interprétation de cartes, gra- Géographie : voyage sur 2 continents proposant Géographie : tout sur l'Europe, ses états, ses ins- diverses données statistiques pour une étude de 

phiques et autres données climatiques. une découverte du quotidien, des forces et fai- titutions, ses réussites, ses alliances :le mode d'em- la France de 1989 : régions, villes, institutions, vie 
blesses de l'Amérique latine et de l'Afrique. ploi pour 1992. économique industrielle. 

Jeu : un jeu divertissant à découvrir. Jeu : 1 jeu divertissant à découvrir. Jeu : 1 jeu divertissant à découvrir. Jeu : 1 jeu divertissant à découvrir. 

Réf. GU 557064 : 245 F Réf. GU 557084 : 245 F Réf. GU 557104 :245F Rét. GU 557124 :245F 


Utilisez le bon de commande SORACOM page 38 


